RE:imagen de tabla en paradox a imagen normal.
Prueba esto
function TFormPrincipal.CargaFoto(Foto:WideString;guardar:Boolean=false):Boolean;
var
blob:TStream;
QueryFotos:TZQuery;
begin
QueryFotos:=TZQuery.Create(application);
QueryFotos.Connection:=ZConnection1;
QueryFotos.Close;
QueryFotos.SQL.Clear;
//Filtro de entre todas la foto que quiero mostrar
QueryFotos.SQL.Add('select * from fotos where ref_personal=:ref;');
QueryFotos.ParamByName('ref').AsString:=foto;
QueryFotos.Open;
if QueryFotos.IsEmpty then
begin
Result:=False;
QueryFotos.Close;
QueryFotos.Free;
QueryFotos:=nil;
exit;
end;
blob := QueryFotos.CreateBlobStream(QueryFotos.FieldByName('foto'), bmRead);
try
blob.Seek(0, soFromBeginning);
//Imagen=TJVThumbImage
Imagen.Picture:=nil;
Imagen.LoadFromStream(blob,grJPG);//El JvThumbInage requiere dos parametros
if guardar then
begin
with TFileStream.Create(Foto+'.jpg', fmCreate) do
try
CopyFrom(blob, blob.Size)
finally
Free
end;
end;
finally
begin
blob.Free;
QueryFotos.Close;
QueryFotos.Free;
QueryFotos:=nil;
end;
end;
end;
Suerte