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 :
