|
#1
|
|||
|
|||
Вопрос по FTP
Привет друзья!
Есть вопрос относительно компонента idFTP. вот ошмёток кода: Код:
function TForm1.GetFileFromFTP: string; var IPFile:Tfilestream; IPName:array[0..25] of char; const UrName:String = XXX; UrHost:String = 'XXXX'; UrPassword:String = 'XXXXXX'; label X; begin X: with (FTP) do try Username := UrName; Host := UrHost; Password := UrPassword; if (not Connected) then Connect else begin Disconnect; goto X; end; except exit; end; if (FTP.Connected) then begin try if (fileExists('SwInfo.pim')) then deletefile('SwInfo.pim'); FTP.Get('SwInfo.pim','SwInfo1.pim'); sleep(1000); IPFile:=Tfilestream.Create('SwInfo.pim',fmopenread); IPFile.Read(IPName, 24); ******* ну и так далее****** end; end; FTP.Get('SwInfo.pim','SwInfo1.pim') код встаёт и всё. И загрузка ЦП при этом 50%, такое ощущение, что где-то выполняется бесконечный цикл. Антифриз конечно помогает, но я не получаю желаемого результата. Как скачать файл по FTP без косяков???????? Последний раз редактировалось Admin, 19.06.2008 в 14:56. |
#2
|
|||
|
|||
Неужели никто не знает???
|