DataSnap Client carregar Blob
Aprendi a usar DataSnap Rest,no Delphi 10,usando o banco Firebird com Zeos,no lado server,deste modo não alterei a estrutura de chamadas e dados que ja tenho.
No lado client,usei uma chamada simples que retorna a quantidade de registros para poder testar a conexão remota e esta ok.
Recebo o dados do server assim;
Agora como carregaria uma imagem que tenho gravado no banco?
No programa original usado no Windows,a imagem é carregada assim;
Como seria utilizando um modo simples,como foi a do retorno da quantidade de registros?
No lado client,usei uma chamada simples que retorna a quantidade de registros para poder testar a conexão remota e esta ok.
Recebo o dados do server assim;
Label1.Text:=ClientModule1.ServerMethods1Client.Total;
Agora como carregaria uma imagem que tenho gravado no banco?
No programa original usado no Windows,a imagem é carregada assim;
var
Stream: TStream;
jpgImagem: TJPEGImage;
begin
jpgImagem := TJPEGImage.Create;
With datamodule2.ZQuery1 do
Begin
Sql.Clear ;
Sql.Append('Select FOTO from TABELA ');
Sql.Append('WHERE CODIGOS='+QuotedStr(Str));
Open;
Stream := CreateBlobStream(FieldByName('FOTO'),bmRead);
end;
try
jpgImagem.LoadFromStream(Stream);
image1.Picture.Assign(jpgImagem);
finally
jpgImagem.Free;
Stream.Free;
end;Como seria utilizando um modo simples,como foi a do retorno da quantidade de registros?
Vtrx
Curtidas 0
Respostas
Vtrx
22/01/2017
Resolvido.
GOSTEI 0