ActiveDelphi

[dudumacena]

Segue o Código, (obs: Fora da thread o procedimento funciona)


procedure TCarregaImgThread.Imagem;
var
endereco, condicao, Retorno, nomeImage, s: string;
Requisicao: TRequisicao;
Imagem: TFDMemTable;
imgHTTP: THTTPClient;
Bitmap: TBitmap;
IMG: TMemoryStream;
begin
inherited;
try
Imagem := TFDMemTable.Create(nil);
Requisicao := TRequisicao.Create;
endereco := Form1.hostEmpresa;
condicao := 'where%20imgProduto%20<>%20'+QuotedStr('');
Retorno := Requisicao.GET('/servidorDelivery/api/v1/pedidos/search/imagemproduto/'+condicao, endereco);
Form1.JsonToDataset(Imagem, Retorno);

Imagem.First;
while not Imagem.Eof do
begin
try
Form1.MemCardapio.First;
while not Form1.MemCardapio.Eof do
begin
try
with Form1.MemCardapio do
begin
Edit;

Bitmap := TBitmap.Create;
IMG := TMemoryStream.Create;
imgHTTP := THTTPClient.Create;

IMG.Clear;
imgHTTP.Get(Form1.hostEmpresa+'/imgprodutos/'+Imagem.FieldByName('imgProduto').AsString, IMG);

IMG.Position := 0;

Form1.MemCardapioimagemProduto.LoadFromStream(IMG);<--- //(erro ocorre aqui).

Post;
Refresh;
Next;
end;

Imagem.Next;
finally
FreeAndNil(Form1.IMG);
FreeAndNil(imgHTTP);
end;
end;
Except

end;

Imagem.Next;
end;
finally
FreeAndNil(Requisicao);
FreeAndNil(Imagem);
end;
end;