отправка на ftp

[Fahman]

Чет я парюсь уже 2 чеса не как не пойму в чем дело....
хочу на ФТП залить файл и не как не могу уже и пути поменял всеравно ошибка выходит(((

procedure TForm1.Button1Click(Sender: TObject);
begin
IDFTP1.Host:='';
IdFTP1.Username:='';
IdFTP1.Password:='';
IdFTP1.Port:=21;
IdFTP1.Connect;
if IdFTP1.Connected then
begin
  memo1.Clear;
Memo1.Lines.Add('CONNECTED ...');
{Подключились отпровляем файл}
IdFTP1.Put('D:\test\log.txt', 'log.txt', True);
memo1.Lines.Add('Finished');
end;

if Assigned(IdFTP1) then
begin
  IdFTP1.Disconnect;
  IdFTP1.Free;
end;
         end;
end.

делал по уроку

[mirkul]

По моему вот так:

...
IdFTP1ChangeDir('/');
IdFTP1.Put('D:\test\log.txt', 'log.txt', False);
...

[Fahman]

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

По моему вот так:

...
IdFTP1ChangeDir('/');
IdFTP1.Put('D:\test\log.txt', 'log.txt', False);
...

memo1.Lines.Add('Finished');

эта строка подсвечивается, подключаюсь к hostinger создал тестовый акк

тупо ошибка не удается найти файл((

[Stilet]

эта строка подсвечивается

Мда... Я смотрю некоторые не учатся даже со временем.
Ладно, попробую ткнуть пальцем:

procedure TForm1.Button1Click(Sender: TObject);
begin
IDFTP1.Host:='';
IdFTP1.Username:='';
IdFTP1.Password:='';
IdFTP1.Port:=21;
IdFTP1.Connect;

if IdFTP1.Connected then
begin
  memo1.Clear; 
  Memo1.Lines.Add('CONNECTED ...');
 {Подключились отпровляем файл}
 try
  IdFTP1.Put('D:\test\log.txt', 'log.txt', True);
  memo1.Lines.Add('Finished');
 except
  оn e:Exception do   memo1.Lines.Add(e.message);
 end;
end;

if Assigned(IdFTP1) then
begin
  IdFTP1.Disconnect;
  IdFTP1.Free;
end;
         end;
end.

И после того как пропишешь хост, юзера и пасс текст ошибки в студию.

[Fahman]

Вот еще вариант я нашел в нете пример

      var
  ftp: TIdFTP;
  ms:  TMemoryStream;
begin
  ftp:=TIdFTP.Create(Application);
  ms:=TMemoryStream.Create;
  try
    try
      ftp.Host:='';// ftp 
      ftp.Port:=21;
      ftp.Username:='';
      ftp.Password:='';
      ftp.Connect(true, 2000);
      AssErt(ftp.Connected);
      ftp.ChangeDir('/');
      ftp.Put('D:\test\log.txt','file.txt',false); 
      ShowMessage('');
    finally
      ms.Free; ftp.Free;
    end;
  except
    ShowMessage('good');
  end;
end;

вот еще что я подумал.
У меня Win8 и блин может это надо запустить от имени администратора? Я сделал от имени администратора.... Извините может я ща и не в тему но я пытался запустить программу от имени администратора так:
Открыл блокнот и записал туда

<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
    <dependency>
        <dependentAssembly>
            <assemblyIdentity type="Win32" name="Microsoft.Windows.Common-
Controls" version="6.0.0.0" processorArchitecture="X86" publicKeyToken="6595b64144ccf1df" language="*">
            </assemblyIdentity>
        </dependentAssembly>
    </dependency>
    <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
        <security>
            <requestedPrivileges>
                <requestedExecutionLevel level="requireAdministrator"></requestedExecutionLevel>
            </requestedPrivileges>
        </security>
    </trustInfo>
    <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1"> 
        <application> 
            <!--The ID below indicates application support for Windows Vista -->
            <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/> 
            <!--The ID below indicates application support for Windows 7 -->
            <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
        </application> 
    </compatibility>
</assembly>

сохранил как admin.manifest
после
открыл блокнот и вписал туда "24 admin.manifest"
и сохраняю как admin.rc
после скопировал в папку делфи ну и создал файл admin.res
в delphi добавил {$R admin.res} но только как нажал на компиляцию у меня delphi зависла и не знаю почему( извините что не в тему просто я пытаюсь понять где и в чем мой косяк)))

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

Мда... Я смотрю некоторые не учатся даже со временем.
Ладно, попробую ткнуть пальцем:

И после того как пропишешь хост, юзера и пасс текст ошибки в студию.

Не успел откомпилировать)

[Stilet]

Не успел откомпилировать)

Отличный момент начать понимать что копипастить не хорошо!!!!
А теперь угадай с одного раза - что сейчас нужно сделать, почитав мой пример?

[Fahman]

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

Отличный момент начать понимать что копипастить не хорошо!!!!
А теперь угадай с одного раза - что сейчас нужно сделать, почитав мой пример?

ща буду искать описание ошибок и исправлять)

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

Отличный момент начать понимать что копипастить не хорошо!!!!
А теперь угадай с одного раза - что сейчас нужно сделать, почитав мой пример?

Вот теперь компилируется без запинки, только одно но) он так и не может найти гребанный файл и отправить.... вылетает ошибка что файл не найден а в мемо выводит так
CONNECTED ...
Cannot open file "D:\test\log.txt". не удается найти указанный файл.

[Stilet]

не удается найти указанный файл.

Вот! И что же помешало тебе сразу текст ошибки выложить?

[Fahman]

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

Вот! И что же помешало тебе сразу текст ошибки выложить?

Лень и то что впервые с ftp связываюсь я так думаю))))

[Stilet]

Ну тогда избавляйся от лени.
По поводу ошибки - значит нет такого файла. Ошибся ты в имени.