Load Gambar URL JPG di Delphi #215

andrypein.net : Bagaimana load url gambar memakai kodingan delphi? O jelas bisa.

Contoh untuk postingan sekarang hanya url gambar dengan extensi si JPG terlebih dulu.

Untuk extensi lainnya ada di postingan aing yang next.

Oke lanjut ke bagian kodingannya terlebih dulu pada bagian uses tambahkan uses JPEG, bahan lainnya adalah komponen IDHttp.

Beginilah prosedur untuk ngeload url gambar nya gans.

procedure Tform1.loadgambar(url: string);
var
  ms : TMemoryStream;
  gbr : TJPEGImage;
begin
  try
    ms:=TMemoryStream.Create;
    gbr:=TJPEGImage.Create;
    try
      IdHTTP1.Get(url,ms);
      ms.Seek(0,soFromBeginning);
      gbr.LoadFromStream(ms);
      image1.Picture.Assign(gbr);
    finally
      ms.Free;
      gbr.Free;
    end;
  except
    showmessage('URL not Valid');
  end;
end;

Terakhir pada button nya seperti ini

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  loadgambar(edit1.Text);
end;

Hasil akhir adalah dengan tes copy image address sembarang gambar dari gogel lalu paste di edit text dan load.

Biasa, apps Load Gambar URL JPG di Delphi nya donlod disini gan.

Download

*AFK