hola
Código Delphi
[-]
var STREAM:TMemoryStream;
bitmap:tbitmap;
begin
DM.SP.StoredProcName := 'BUSCA_PAIS'; DM.SP.Prepare; try
DM.SP.Params.ParamValues['CODIGO'] := cCodigo;
DM.SP.ExecProc;
STREAM:=TMemoryStream.Create;
bitmap:=tbitmap.Create;
DM.SP.ParamByName'BANDERA').SaveToStream(STREAM);
stream.Seek(0,sofrombeginning);
bitmap.LoadFromStream(stream);
DBPaisBandera.Picture.Bitmap.Assign(bitmap);
LabelPais.Caption := DM.SP.ParamByName('NOMBRE').AsString;
finally
DM.SP.UnPrepare;
bitmap.Free;
STREAM.Free;
end;
end;
No se si te funcionara yo no utilizo estos componentes, pero la idea es pasarlo a un stream y luego cargarlo, no se si se podria pasar del bitmat i hacer load directamente al picture, pero mi codigo lo tengo asi y supongo que es porque sin el bitmap no me funcionaba
Saludos y suerte