WinInet-загрузка файла на сервер

[саша40]

Привет. Написал вот такую функцию:

function WriteFileServer(Url,FileName: String): Boolean; stdcall;
const BufferSize=1024; //память размером 1 килобайт
var
hSesion,hurl: HInternet; //пиременые сеанса связи
Buffer: array [1..BufferSize] of Byte; //массив байтов
BufferLen: DWORD; //длина
f: file; //сам файл(любой)
sAppName: String; //имя файла
begin
Result:=false;
sAppName:=ExtractFileName(FileName); //получаем имя файла
hSesion:=InternetOpen(PChar(FileName), INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0); //открываем сесию
try
hUrl:=InternetOpenURL(HSesion,PChar(Url),nil,0,0,0);    //соеденяемся по Url
try
AssignFile(f,sAppName); //открываем файл у себя на компьютере
Rewrite(f); 
try
BlockRead(f,Buffer,BufferSize); //читаем блок в массив байтов
repeat
InternetWriteFile(hUrl,@Buffer,sizeof(Buffer),BufferLen); //загружаем до тех пор, пока буфер длины не будет равен 0
until
BufferLen=0;
finally
CloseFile(f); //финали указало на конец файла, закрываем файл
Result:=true; //всё прошло удачно
end;
finally
InternetCloseHandle(hUrl); //закрываем хендл url
end;
finally
InternetCloseHandle(hSesion); //закрываем сесию
end;
end;

Смысл в том, чтобы загрузить файл по Url. Например, пользователь дал такое url: http://www.mysite.ru/files/. Мы значит его открываем и туда грузим. Вопрос: Правильно всё ли?

[BARNEY]

а проверить самому вера не позволяет?

[саша40]

Сообщение от BARNEY

а проверить самому вера не позволяет?

у меня из dll, в которой эта функция.
Написано так:

exports DownloadFileServer;
exports ReadTextFileServer;
exports WriteFileServer;

И в проге:

function DownloadFileServer(url,filename: String): Boolean; external{1} 'DLT.dll';
    function ReadTextFileServer{2}({3}Url: String){4}: String;  external{5}'DLT.dll';
    function WriteFileServer(Url,FileName: String): Boolean; external 'DLT.dll';
{6}

Выдает такие ошибки:
1)Field definition not allowed after methods or properties
2)Function needs result type
3)';' expected but '(' found

4)'END' expected but ')' found
5)Identifier redeclared: 'external'
6)Type expected but 'END' found
Что делать, ума не приложу?

[саша40]

Всё перенес в программу, ошибок нет.

[саша40]

Всё решил сам:

WriteFileServer(Url, FileName: String): Boolean;
var
hSesion,hurl: HInternet;
Buffer: array [1..1024] of Byte; //массив байтов
BufferLen: DWORD;
FileLen: Integer; //размер файла
n: integer; //кол-во полных пакетов
h: integer; //размер неполного пакета
i: integer;
f: file;
sAppName: String;
begin
Result:=false;
sAppName:=ExtractFileName(FileName);
FileLen:=GetFileSize(FileName); //узнаем размер файла
n:=FileLen div 1024; //частное от деления и есть кол-во пакетов
h:=FileLen mod 1024; //остаток от деления
hSesion:=InternetOpen(PChar(FileName), INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0); //открываем сесию
try
hUrl:=InternetOpenURL(HSesion,PChar(Url),nil,0,0,0);    //соеденяемся по Url
try
AssignFile(f,sAppName);
Reset(f);

if n>0 then
begin

for i:=1 To n Do
begin
BlockRead(f,Buffer,1024);
repeat
InternetWriteFile(hUrl,@Buffer,sizeof(Buffer),BufferLen);
until
BufferLen=0;
end; //ещё не закончили
end;

if h>0 then
begin
BlockRead(f,Buffer,h);
repeat
InternetWriteFile(hUrl,@Buffer,sizeof(Buffer),BufferLen);
until
BufferLen=0;

end;
//вот теперь готово
CloseFile(f);
Result:=true;
finally
InternetCloseHandle(hUrl);
end;
finally
InternetCloseHandle(hSesion);
end;