Srodne teme

04.05.2002. DataBase
20.01.2003. Zastita fajlova za download
15.10.2003. Mysqldump i Delphi
08.06.2004. Instalacija Delphija 5,0
28.02.2004. Prelazak sa Delphija na C++
08.06.2004. Okidanje php strane pomocu delphija
03.02.2005. Pokretanje exe aplikacija iz Delphija?
23.05.2006. Samsung D500 - Gde is sta
27.01.2006. Firefox - kako downloadovati fajl koji zahteva lo..

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Kako downloadovati fajl uz pomoc Delphija?

[es] :: Pascal / Delphi / Kylix :: Kako downloadovati fajl uz pomoc Delphija?	[ Pregleda: 888 \| Odgovora: 6 ]	Postavi temu Odgovori

Autor

byTer

Član broj: 10936
Poruke: 1221
*.nat-pool.so.sbb.co.yu.

ICQ: 47761626

Profil

Kako downloadovati fajl uz pomoc Delphija?

^{14.10.2004. u 23:29}

Ja sam do skora imao neku rutinu ali sam je izbrisao.
Poku[avam da se akacim na port 80 servera i skinem root datoteku.
Ko zna neka pomaze izgubio sam ceo dan juce. Pozdrav.

^{14.10.2004. u 23:29}

reiser
Vranje

Član broj: 7895
Poruke: 1892
*.dialup.neobee.net.

Profil

Re: Kako downloadovati fajl uz pomoc Delphija?

^{14.10.2004. u 23:56}

Code:

function DownloadFile(const fileURL, FileName : String) : Boolean;
const
  BufferSize = 1024;
var
  hSession, hURL : HInternet;
  Buffer         : Array[1..BufferSize] of Byte;
  BufferLen      : DWORD;
  f              : File;
  sAppName       : String;
begin
sAppName := ExtractFileName(ParamStr(0));
hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
Try
   hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);
   Try
     AssignFile(f, FileName);
     Rewrite(f, 1);
       repeat
         InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
         BlockWrite(f, Buffer, BufferLen)
       until BufferLen = 0;
     CloseFile(f);
     result := TRUE;
   Finally
     InternetCloseHandle(hURL)
   End;
Finally
   InternetCloseHandle(hSession)
End;
end;

^{14.10.2004. u 23:56}

bancika
Branislav Stojkovic
Nis, New York

Član broj: 24844
Poruke: 620
*.vdial.verat.net.

ICQ: 84215453
Sajt: www.storm-software.co.yu/..

Profil