Передача файла на FTP

[}{oт@бь)ч]

Спасибо огромное дело было в хостинге попробывал на другом хостинге заработало!

[}{oт@бь)ч]

А еше вопрс такой как мне зделать отправку файла не понажатию Button
А при открытии формы!
Тоесть запускаю програму и она отсылает файл!

[_Engine_]

Перенеси свой код в событие формы OnShow

[}{oт@бь)ч]

А поподробнее можно?
Что и как?
Вот так правельно ?

nit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ComCtrls, StdCtrls;

type
TForm1 = class(TForm)
IdFTP1: TIdFTP;
ProgressBar1: TProgressBar;
Button1: TButton;
procedure IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
procedure IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
procedure IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount;
Application.ProcessMessages;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
IdFTP1.Host := 'xost';
IdFTP1.Username := 'login';
IdFTP1.Password := '******';
IdFTP1.Connect(true);
end;

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
ProgressBar1.Max := AWorkCountMax;
end;

procedure TForm1.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position := 0;
MessageDlg('Передача закончена!',mtInformation,[mbok],0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Put('c:\test.txt','test.txt' ,true);
end;

end.

Но при нажатии на файл форма серогно открывается!

[_Engine_]

тупым копипастом из Button1Click в Form1Show

[}{oт@бь)ч]

Такс разобрался!
Но еше, после запуска файла все приходит на хост но после запуска файла сама форма тоже выскакивает!
вот как форму тоже скрытой зделать?

[Квэнди]

hkdkest, какое отношение эмуляция неблокирующих сокетов имеет к отсутствию прав при обращении к FTP ?

[}{oт@бь)ч]

Я несовсем понемаю о чом вы!
Но при открытие файла идет на хост файл загружается но после этого форма выскакивает пустая!
Вот как ее убрать я незнаю!
Подскажите пожалуйста!

[Квэнди]

какое отношение это имеет к работе с сетью ?
закрыто