Wininet

← →
Cerber (2003-11-10 20:55) [0]

Привет тут одна промблема скачал код, а тут ошибка. Когда скачиваю фаил i.txt всё нормально, но когда повторно скачиваю i.txt (c тогоже сервера) но с другим содержанием мне на диске сохраняет первый фаил как этого избежать.

procedure TForm2.Button1Click(Sender: TObject); var FileOnNet, LocalFileName: string; t : integer; begin {function GetInetFile (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 Result:=False; sAppName := ExtractFileName(Application.ExeName); 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; begin FileOnNet:= " http://reklamana.by.ru/I.txt"; LocalFileName:="I.txt"; end;

← →
Anatoly Podgoretsky (2003-11-10 21:08) [1]

И где обработка ошибок? И кто будет делать отладку в таком дурно форматированом коде, кроме того этот код явно не откомпилируетс, назакрытые комментарии.

← →
FireHack (2003-11-11 09:07) [2]

msdn:

Note that caching happens automatically unless the original request to open the data stream set the INTERNET_FLAG_NO_CACHE_WRITE flag.

← →
Cerber (2003-11-11 14:42) [3]

Anatoly Podgoretsky. Когда я его скачал было хуже, что знал исправил. А так всё пашет.

Wininet Найти похожие ветки