Download Programı Yapmak

~~*MeLeK*~~ · 28-01-2008, 11:23

Download Programı Yapmak
procedure gy_DownloadFile_to_file(const Url: string;File1,File2: String; Obj:TObject);
var
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
Buffer: array[0..1024] of Char;
Toplam, BytesRead,NumWritten: dWord;
ToF: file;
begin
Toplam:=0;
NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

if Assigned(NetHandle) then
begin
UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

if Assigned(UrlHandle) then
{ UrlHandle valid? Proceed with download }
begin
FillChar(Buffer, SizeOf(Buffer), 0);
AssignFile(ToF, file1);
Rewrite(ToF, 1); { Record size = 1 }
repeat
FillChar(Buffer, SizeOf(Buffer), 0);
InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
Toplam := Toplam + BytesRead;
if assigned(Obj) and ( Obj is TLabel) then
TLabel(obj).caption := File2+' '+ FloatToStr(Toplam)+' Byte indi ' ;
BlockWrite(ToF, Buffer, BytesRead,NumWritten);
Application.ProcessMessages;
until BytesRead = 0;
InternetCloseHandle(UrlHandle);
CloseFile(ToF);
end
else
{ UrlHandle is not valid. Raise an exception. }
raise Exception.CreateFmt('Cannot open URL %s', [url]);

InternetCloseHandle(NetHandle);
end
else
{ NetHandle is not valid. Raise an exception }
raise Exception.Create('Unable to initialize Wininet');
end;

~~Cogito~~ · 01-02-2008, 19:52

Kardeş bizim anlacağımız dilde yaz

wanted · 01-02-2008, 19:53

Alıntı:

Cogito´isimli üyeden Alıntı

Kardeş bizim anlacağımız dilde yaz

delphi programı kullanan bu kodları kullanarak yapıyor.

**ANYMOREFORME** · 02-02-2008, 02:31

Tabi Delphi Programını Bilmeyenler Anlayamaz

aynen öle

**Extreme** · 04-02-2008, 00:13

Bende delphi yüklü bi deniyim şimdi

**ReDDeVıL** · 11-06-2008, 17:44

Bısey anlamadım ayrıntılı bilgi pls

**nefer15** · 11-06-2008, 21:42

aynen hıc bısı anlamadım

Konu Araçları
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	son Mesaj
TV Programı Yapmak	Extreme	Visual Basic	16	17-09-2008 23:17
Hile Programı Yapmak İçin Anlayanlar Bakın Hackerlar	mrt09	WarRock Hack	0	03-08-2008 03:01
Zan yapmak	AYASOFYA	İslam	0	25-07-2008 20:02
Parçalanmış Dosyaları Birleştirme Programı Auslogics Disk Defrag 1.4.12.293 Download	αкѕу	Programlar	0	18-05-2008 23:20
Recover My Files Veri Kurtarma Programı 3.9.8.5930 İndir (Download)	αкѕу	Programlar	0	18-05-2008 23:14