|
Тема |
какво не му е наред !! помогнете |
|
Автор |
Nova_tt (непознат
) |
|
Публикувано | 07.06.06 12:52 |
|
|
моля помогнете , това е един прост DLL и не мога да го компилрам .
с Делфи 7 съм. не знам дали това е бедата. трябва ми просто една функция ка качва файл на FTP . ако може някой да помогне с друга идея ще съм много благодарен .
ето кода :
// IdBaseComponent, IdComponent,
// IdTCPConnection, IdTCPClient, IdFTP;
Function PutFileToFTP(filename:string;host_url:string;Login:string ,Password_:string;wwwfile:string):boolean;
var IdFTP_x: TIdFTP;
er:Tfilestream;
begin
try
IdFTP_x:=TIdFTP.Create(nil);
with IdFTP_x do begin
Password:=Password_;
User:=Login;
Host:=host_url;
SocksInfo.Password:=Password_;
SocksInfo.UserID:=Login;
SocksInfo.Port:=21; // ïîðò
SocksInfo.Host:=host_url;
Connect(true);
if Connected then begin
if fileage(filename)<>-1 then begin
try
er:=Tfilestream.Create(filename,fmOpenRead);
Put(er,wwwfile);
finally
er.Free;
end;
end;
end;
end;
finally
IdFTP_x.Free;
end;
end;
|
| |
|
|
|