Отправка файлов на сервер

[mitiay]

Такая проблема.
Создаются файлы от 0 до ... Мне их нужно отправить на фтп хост.Делаю так
IdFTP.Put(memo1.text,(InttoStr(num) +'jpg'),false);
В мемо полный путь до файлов.(получается около 40 картинок).
Не хочет отправлять и все!Может кто посоветует другой метод?

[Stilet]

Может кто посоветует другой метод?

Может.
WinInet из моей коллекции:

function TFtp.WIPutFile(ASource, ADest: ansiString): Boolean;
var dso:Cardinal;
begin
  if Connected then begin
     SetLastError(0);
     dso:=$FFFFFFFF;
     InternetSetOption(hConnect,INTERNET_OPTION_SEND_TIMEOUT,@dso,sizeof(dso));
           if FtpPutFile(hConnect
                ,PAnsiChar(ASource)
                ,PAnsiChar(ADest)
                ,{FILE_ATTRIBUTE_NORMAL} FTP_TRANSFER_TYPE_BINARY
                ,0
        ) then     begin
               Error:='';
               Result:=true;
           end else begin
               Error:='WinInetFtpPutFile: ('+IntToStr(GetLastOSError)+') '+SysErrorMessage(GetLastOSError);

               Result:=false;
           end;
  end else begin
    Error:='';
    Result:=false;
  end;  
end;

Учти! - копипастить код противопоказано. Почитай о функциях, использованных в нем в MSDN
А вообще у тебя уже налицо видна в твоем посте одна грубейшая ошибка. Но что это за ошибка ты должен догадаться сам.

[mitiay]

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

Может.
WinInet из моей коллекции:

function TFtp.WIPutFile(ASource, ADest: ansiString): Boolean;
var dso:Cardinal;
begin
  if Connected then begin
     SetLastError(0);
     dso:=$FFFFFFFF;
     InternetSetOption(hConnect,INTERNET_OPTION_SEND_TIMEOUT,@dso,sizeof(dso));
           if FtpPutFile(hConnect
                ,PAnsiChar(ASource)
                ,PAnsiChar(ADest)
                ,{FILE_ATTRIBUTE_NORMAL} FTP_TRANSFER_TYPE_BINARY
                ,0
        ) then     begin
               Error:='';
               Result:=true;
           end else begin
               Error:='WinInetFtpPutFile: ('+IntToStr(GetLastOSError)+') '+SysErrorMessage(GetLastOSError);

               Result:=false;
           end;
  end else begin
    Error:='';
    Result:=false;
  end;  
end;

Учти! - копипастить код противопоказано. Почитай о функциях, использованных в нем в MSDN
А вообще у тебя уже налицо видна в твоем посте одна грубейшая ошибка. Но что это за ошибка ты должен догадаться сам.

то есть если поправить эту грубейшию ошибку все норм работать?

[Stilet]

если поправить эту грубейшию ошибку все норм работать?

Нет конечно )
Ты даже не попытался понять о чем я говорю.
Твоя грубейшая ошибка в том что ты хочешь чтоб мы угадывали ошибку.

[mitiay]

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

Нет конечно )
Ты даже не попытался понять о чем я говорю.
Твоя грубейшая ошибка в том что ты хочешь чтоб мы угадывали ошибку.

я понимаю как это сделать!Но не знаю как это описать в делфе!
Я понимаю что нужен цикл(Если первый файл отправлен то отправляем второй до последней строчи)правельно я понимаю?

[Stilet]

правельно я понимаю?

Нет не правильно.
Короче - текст ошибки в студию.
И код твой полностью.
А то будем тут на кофейной гуще гадать сто лет.

[саша40]

Делать потому что правильно надо.

//на форме idftp с стандартным именем, memo с путями.
var
i: integer;
begin
idFTP1.Host:='http://mysite.ucoz.ru';
idFTP1.Port:=21;
idFTP1.UserName:='логин входа';
idFTP1.Password:='пароль';
idFTP1.Connect;
if idFTP1.Connected = false then 
begin
ShowMessage('Ошибка соединения');
exit;
end;
try 
for i: 0 To Memo1.Lines.Count-1 Do 
begin
try 
idFTP1.Put(Memo1.Lines.Strings[i],ExtractFileName(Memo1.Lines.Strings[i]),false);
expert
on E: Exception do 
ShowMessage('Ошибка передачи файла:' + Memo1.Lines.Strings[i] + ' Текст ошибки:' + E.Message);
end;
end;
expert
on E: Exception do
ShowMessage('Упс! Что-то пошло не так. Ниже идет текст ошибки:' + #10#13 + E.Message);
end;
ShowMessage('Файлы переданы');
end;

[Stilet]

expert

Не expert а Except )

[mitiay]

Сообщение от саша40

Делать потому что правильно надо.

//на форме idftp с стандартным именем, memo с путями.
var
i: integer;
begin
idFTP1.Host:='http://mysite.ucoz.ru';
idFTP1.Port:=21;
idFTP1.UserName:='логин входа';
idFTP1.Password:='пароль';
idFTP1.Connect;
if idFTP1.Connected = false then 
begin
ShowMessage('Ошибка соединения');
exit;
end;
try 
for i: 0 To Memo1.Lines.Count-1 Do 
begin
try 
idFTP1.Put(Memo1.Lines.Strings[i],ExtractFileName(Memo1.Lines.Strings[i]),false);
expert
on E: Exception do 
ShowMessage('Ошибка передачи файла:' + Memo1.Lines.Strings[i] + ' Текст ошибки:' + E.Message);
end;
end;
expert
on E: Exception do
ShowMessage('Упс! Что-то пошло не так. Ниже идет текст ошибки:' + #10#13 + E.Message);
end;
ShowMessage('Файлы переданы');
end;

АААА Спасибо!!!Работает!Последний вопрос )))
Создаю папку

IdFTP.MakeDir(InttoStr(num));

Как теперь перейти в нее чтоб закачка файлов была в созданную папку?
IdFTP1.ChangeDir('/webspace/httpdocs/upload/' + (InttoStr(num)) ); -Вот так ругается.

[Stilet]

Вот так ругается.

Опять те же грабли. Телепатировать в честь праздника отказываюсь.