Jump to content
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?

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.