Resmi göstermek için aşağıdaki kodu kullanıyorum resmi göstermese de hata verse de kayıtlarda bir sorun yok kayıtlar geliyor sadace resmi göstemiyor
Kod: Tümünü seç
procedure TURUN_KARTLARI_DUZENLE.Button4Click(Sender: TObject);
var
MS : TMemoryStream;
jpegResim : TJpegImage;
begin
if URUN_KAYIT.URUN_KARTLARI_DB.FieldByName('Resim_1_Yol').AsString=''
then else
begin
MS := TMemoryStream.Create;
try
jpegResim := TJpegImage.Create;
try
try
IdHTTP1.Get(URUN_KAYIT.AYARLAR_DB.FieldByName('Web_Sitesi').AsString+URUN_KAYIT.AYARLAR_DB.FieldByName('FTP_Yol').AsString+URUN_KAYIT.URUN_KARTLARI_DB.FieldByName('Resim_1_Yol').AsString, MS);
except
on e: EIdHTTPProtocolException do begin
exit;
end else begin
raise;
end;
end;
MS.Position := 0;
jpegResim.LoadFromStream(MS);
Image2.Picture.Assign(jpegResim);
finally
jpegResim.Free;
end;
finally
MS.Free;
end;
end;
end;
Teşekkürler