Load Semua URL Gambar di Delphi #222

Anda ingin Tampan?

andrypein.net : Jika postingan kemarin hanya load URL gambar berekstensi JPG saja maka yang sekarang adalah tambahan ekstensi lain.

Di aplikasi ini rekan-rekan bisa load url .png .gif .bmp dan .ico.

Uses2 yang diperlukan di kodingan ini adalah : JPEG, PNGIMage, GifImage, strutils.

Sementara kode untuk prosedur privat nya (jangan lupa di deklarasikan terlebih dahulu).

procedure TFrmmain.loadUrlGambar(url: string; dest: TPicture);
var
  ms : TMemoryStream;
  jpg : TJPEGImage;
  png : TPNGImage;
  gif : TGifImage;
  bmp : TBitmap;
  ico : TIcon;
begin
  ms:=TMemoryStream.Create;
  jpg:=TJpegimage.Create;
  png:=TPNGimage.Create;
  gif:=TGifImage.Create;
  bmp:=TBitmap.Create;
  ico:=TICon.Create;
  try
    Idhttp1.Get(url,ms);
    if RightStr(url,3) = 'jpg' then
      begin
        ms.Seek(0,soFromBeginning);
        jpg.LoadFromStream(ms);
        dest.Assign(jpg);
      end
    else if RightStr(url,3) = 'gif' then
      begin
        ms.Seek(0,soFromBeginning);
        gif.LoadFromStream(ms);
        dest.Assign(gif);
      end
    else if RightStr(url,3) = 'png' then
      begin
        ms.Seek(0,soFromBeginning);
        png.LoadFromStream(ms);
        dest.Assign(png);
      end
    else if RightStr(url,3) = 'bmp' then
      begin
        ms.Seek(0,soFromBeginning);
        bmp.LoadFromStream(ms);
        dest.Assign(bmp);
      end
    else if RightStr(url,3) = 'ico' then
      begin
        ms.Seek(0,soFromBeginning);
        ico.LoadFromStream(ms);
        dest.Assign(ico);
      end
    else
      raise Exception.Create('Error Message nya eror');
  finally
    ms.Free;
    jpg.Free;
    png.Free;
    gif.Free;
    bmp.Free;
    ico.Free;
  end;
end;

Last code tinggal panggil saja URL nya.

procedure Tfrmmain.BitBtn1Click(Sender: TObject);
var
  s  :string;
begin
  s:=RightStr(edit1.Text,4);
  loadUrlGambar(edit1.Text,image1.Picture);
end;

Inimah langsung dicoba saja dengan mengetes URL image address dan tampilkan di aplikasi.

Pasti works gan seperti skrinsut ini :

yang gif
Load Semua URL Gambar di Delphi
ico
Janlup donlod apps Load Semua URL Gambar di Delphi nya gan.

Download

*AFK

Leave a comment
error: Nani???