[fossil]

Всем спасибо, я написал уже..
Только появилась с ней новая проблема, почему-то она не качает из сети... я указываю путь (\\192.168.12.2\update\file.f) и она выдает ошибку, как сделать чтобы она поддерживала сеть?! ща выложу сорцы

Добавлено:

Код:

...
uses Wininet;
...
public
    NADO: boolean;
end;
...
procedure TForm1.BitBtn1Click(Sender: TObject);
var
F: File;
ResumePos, BufferLen, SumSize: DWORD;
hSession, hURL: Hinternet;
Buffer: array[1..1024] of Byte;
err: boolean;
begin
SumSize := 0;
ResumePos := 0;
AssignFile(F, Edit2.Text);
ReWrite(f,1);
NADO := TRUE; 
hSession := internetOpen('Download', PRE_CONFiG_iNTERNET_ACCESS, nil, nil, 0);
hURL := internetOpenURL(hSession,PChar(Edit1.Text),nil, 0, 0, 0);
REPEAT
err:= internetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen); 
IF err=false then
begin
ShowMessage ('Ошибка'); 
exit;
end;
BlockWrite(f, Buffer, BufferLen);
Application. Processmessages;
UNTIL (BufferLen= 0) Or (NADO= FALSE);
ShowMessage ('Закачено успешно!');
end;