Stil Free
14.02.2009, 15:48
Доброго времени суток. В делфи я самоучка. Но вот решил организовать загрузку файла на FTP. Поискал инфу ,вроде сделал ,но что то не так вот исходник кому не лень посмотрите?
procedure upload;
begin
form1.idftp1.changedir('www');
form1.idftp1.put('C:\ccc1.txt','ccc1.txt', false );
form1.idftp1.disconnect;
end;
procedure tform1.idftp1status(sender: tobject; const astatus: tidstatus;
const astatustext: string);
begin
statusbar1.simpletext:= astatustext;
application.processmessages;
'connection established'
if statusbar1.simpletext='connection established' then
upload;
end;
procedure upload;
begin
form1.idftp1.changedir('www');
form1.idftp1.put('C:\ccc1.txt','ccc1.txt', false );
form1.idftp1.disconnect;
end;
procedure tform1.idftp1status(sender: tobject; const astatus: tidstatus;
const astatustext: string);
begin
statusbar1.simpletext:= astatustext;
application.processmessages;
'connection established'
if statusbar1.simpletext='connection established' then
upload;
end;