Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

vtrx

DataSnap Rest Delphi10

Recommended Posts

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;

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?

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.