Мне кажется, что код RAdmin`а нужно вставить в FAQ и, конечно в DRKB

Цитата(RAdmin @ 26.1.2005, 20:57)

Код uses Wininet; var  FtpHandle,InetHandle: HInternet; procedure TForm1.Button1Click(Sender: TObject); begin    InetHandle := InternetOpen(PChar('FTP'), 0, nil, nil, 0);     FtpHandle := InternetConnect(InetHandle, PChar('ftp.server.com'), 21, PChar('UserName'),         PChar('Password'), INTERNET_SERVICE_FTP, 0, 255);      if not Assigned(FtpHandle) then       InternetCloseHandle(InetHandle)    else      try         FtpPutFile(FtpHandle, PChar('LocalFilePath'), PChar('FileNameOnServer'),         FTP_TRANSFER_TYPE_BINARY, 255);         except      end;   InternetCloseHandle(InetHandle); end;

Отличная штука... и тут вопрос... а как узнать прогресс загрузки, сколько загружено и сколько осталось?

Код

uses Wininet; var  FtpHandle,InetHandle: HInternet;  BytesOut,BytesIn:LongInt; ....... procedure TForm1.Button1Click(Sender: TObject); begin    InetHandle := InternetOpen(PChar('FTP'), 0, nil, nil, 0);    InternetSetStatusCallback(InetHandle, @InetCallback);     FtpHandle := InternetConnect(InetHandle, PChar('ftp.server.com'), 21, PChar('UserName'),         PChar('Password'), INTERNET_SERVICE_FTP, 0, 255);      if not Assigned(FtpHandle) then       InternetCloseHandle(InetHandle)    else      try         FtpPutFile(FtpHandle, PChar('LocalFilePath'), PChar('FileNameOnServer'),         FTP_TRANSFER_TYPE_BINARY, 255);         except      end;   InternetCloseHandle(InetHandle); end; procedure InetCallback(HInternet: HINTERNET; dwContext, dwInternetStatus: DWORD;   lpStatusInfo: Pointer; dwStatusInfoLen: DWORD); stdcall; begin   case dwInternetStatus of     INTERNET_STATUS_REQUEST_SENT:  BytesOut:=BytesOut+DWORD(lpStatusInfo^); {Upload}     INTERNET_STATUS_RESPONSE_RECEIVED: BytesIn:=bytesIn+DWORD(lpStatusInfo^); {Download}     {Это сам обрабатывай :) }     INTERNET_STATUS_RECEIVING_RESPONSE:;     INTERNET_STATUS_RESOLVING_NAME:;     INTERNET_STATUS_NAME_RESOLVED:;     INTERNET_STATUS_CONNECTING_TO_SERVER:;     INTERNET_STATUS_CONNECTED_TO_SERVER:;     INTERNET_STATUS_SENDING_REQUEST:;     INTERNET_STATUS_CTL_RESPONSE_RECEIVED:;     INTERNET_STATUS_PREFETCH:;     INTERNET_STATUS_CLOSING_CONNECTION:;     INTERNET_STATUS_CONNECTION_CLOSED:;     INTERNET_STATUS_HANDLE_CREATED:;     INTERNET_STATUS_HANDLE_CLOSING:;     INTERNET_STATUS_REQUEST_COMPLETE:;     INTERNET_STATUS_REDIRECT:;     INTERNET_STATUS_INTERMEDIATE_RESPONSE:;     INTERNET_STATUS_STATE_CHANGE:;   end; end;

Типа огромное спасибо... а мож чуть еще помучать Вас и всё же... как увидеть процесс загрузки файла в процентах?

Из выше показанного примера следует что

BytesOut - колличество отправленных байт
BytesIn - колличество принятых байт

следовательно что бы сделать прогресс:

{Upload}
//Делим кол-во отправленных байт на Размер твоего файла и умножаем на 100.
//(Ну и округляем это дело)
ProgressBar1.Position:=Round(BytesOut / MyFileSize * 100);
//MyFileSize - кол-во байт d твоем файле, только не спрашивай как узнать сколько //весит твой фаил


{Download}
//The same shit.
ProgressBar1.Position:=Round(BytesIn / MyFileSize * 100);
//MyFileSize - кол-во байт в файла на фтпЕ, получаем с помощью
//функции FtpGetFileSize из тогоже winInet.


ЗЫ: "ProgressBar1.Position:= ..." можешь засунуть прям в конец процедуры InetCallback;

Цитата(RAdmin @ 4.6.2005, 16:22)

ЗЫ: "ProgressBar1.Position:= ..." можешь засунуть прям в конец процедуры InetCallback;

Спасибо, это то что мне надо было услыхать

Пожал100

для получения размера файла, нужно ли его открывать?
типа

Код

hFile:=WinInet.FtpOpenFile(InetHandle, ...)

Добавлено @ 16:16
что поставить в качестве dwAccess?
Добавлено @ 16:22
нашёл GENERIC_READ

а что енто ща второй параметр?

Код

FtpGetFileSize(hFile, ???)

Цитата(dsergey @ 7.6.2005, 16:12)

для получения размера файла, нужно ли его открывать? типа

Угу.


Кстати можно, получить размер файла через FtpFindFirstFile.

Код

InetCallback

в каком месте нужно её вызвать?
Добавлено @ 16:52

Код

procedure TfmSendFiles.ByFtp; Var  _iF:integer; begin  bbSend.Enabled:=False;   if uInet.ConnectedToInternet = ctNone then begin     ShowMessage('Нет подключения к сети интернет');     exit;   end;//if   InetHandle := InternetOpen(PChar('FTP'), 0, nil, nil, 0);   FtpHandle := InternetConnect(InetHandle,                                 PChar(leFtpAdress.text),                                 StrToInt(leFtpPort.Text),                                 PChar(leFtpUserName.Text),                                 PChar(leFtpPassword.Text),                                 INTERNET_SERVICE_FTP,0,255);   if not Assigned(FtpHandle) then     InternetCloseHandle(InetHandle)   else begin     FtpSetCurrentDirectory(FtpHandle,PAnsiChar(leFTPDir.Text));     //пробегаем по списку выбранный файлов     For _iF:=0 to lvFilesToSend.Items.Count-1 do       if lvFilesToSend.Items[_if].Checked then         try           FtpPutFile(FtpHandle, PChar(fmMain.sPathToSave+lvFilesToSend.Items[_if].Caption),                      PChar(lvFilesToSend.Items[_if].Caption), FTP_TRANSFER_TYPE_BINARY, 255);           //в этом месте будет правильно или нет?         except           Showmessage('Ошибка отправки файла: '+fmMain.sPathToSave+lvFilesToSend.Items[_if].Caption+                       'Проверьте наличие файла');         end;//try-except   end;//else  DeleteSended;  bbSend.Enabled:=True;  ShowMessage('Готово');  if cbAutoHungUp.Checked then HungUp; end;

Я ведь оправляю несколько файлов

То выше был чисто пример (наверное я этим примеров всех запутал),
на самомо деле стоит разделять отправку, соединение и разъединение.

Код

var //Глобальные переменные  FtpHandle,InetHandle: HInternet;  BytesOut,BytesIn:LongInt; procedure Connect; //Соединение begin    InetHandle := InternetOpen(PChar('FTP'), 0, nil, nil, 0);    InternetSetStatusCallback(InetHandle, @InetCallback);     FtpHandle := InternetConnect(InetHandle, PChar('ftp.server.com'), 21, PChar('UserName'),         PChar('Password'), INTERNET_SERVICE_FTP, 0, 255);      if not Assigned(FtpHandle) then       InternetCloseHandle(InetHandle); end; procedure Disconnect; //Сами понимаете begin   InternetCloseHandle(InetHandle); end; Function SendFile(Scr, Dest:AnsiString):boolena;  //Отправка, можно прицепить try except, но не уверен что это может понадобиться begin       Result:=  FtpPutFile(FtpHandle, PChar(Scr), PChar(Dest),         FTP_TRANSFER_TYPE_BINARY, 255); end; //Так выглядит отправка, обратите внимание на то как записывается адресс будущего файла на ftp.  SendFile('C:\1.exe', '/ftpfolder1/folder2/myfile.exe');

........

Цитата(dsergey @ 7.6.2005, 16:29)

а что енто ща второй параметр? код Pascal/Delphi 1: FtpGetFileSize(hFile, ???)

Упс не заметил этого вопроса.


Тут первым параметром идёт Хендл полученный после вызова FtpOpenFile
второй параметр возвращает размер нашего файла.
var
FSize: Int64;
...
FtpGetFileSize(FileHandle,Fsize);

далее форматируй Fsize.








Добавлено @ 20:25

Цитата(dsergey @ 7.6.2005, 16:50)

в каком месте нужно её вызвать?

После того как получил хэндл от InternetOpen

Добавлено @ 20:29

Цитата(dsergey @ 7.6.2005, 16:50)

//пробегаем по списку выбранный файлов     For _iF:=0 to lvFilesToSend.Items.Count-1 do       if lvFilesToSend.Items[_if].Checked then         try           FtpPutFile(FtpHandle, PChar(fmMain.sPathToSave+lvFilesToSend.Items[_if].Caption),                     PChar(lvFilesToSend.Items[_if].Caption), FTP_TRANSFER_TYPE_BINARY, 255);           //в этом месте будет правильно или нет?         except           Showmessage('Ошибка отправки файла: '+fmMain.sPathToSave+lvFilesToSend.Items[_if].Caption+                       'Проверьте наличие файла');         end;//try-except   end;//else

Плз не пиши таких вещей как lvFilesToSend.Items[_if].Caption и sPathToSave+lvFilesToSend.Items я же не знаю что в них вписанно.

А вобще конструкция вроде рабочая, вот только от try except можно избавиться.

а как при помоши FtpGetFile закачать файл на комп
Опишите пожалуйста если не лень

Код

FtpGetFile(FtpHandle, PChar(FileOnServer), PChar(FileOnLocalDrive),         True, FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_BINARY or INTERNET_FLAG_RELOAD, 255)

большое спасибо