Witam.
Mam problem z pobieraniem i wysyłaniem pliku poprzez komponent TIdFTP.
Mam takie procedury:
function PolaczFTP:boolean;
begin
with Form1.IdFTP do
begin
if Connected=False then
begin
Host:='nazwa';
Username:='user';
Password:='pass';
if not Connected then
begin
Connect();
result:=Connected
end;
end else
begin
result:=True;
end;
end;
end;
Połączenie jest realizowane prawidłowo problem jest w funkcjach wysyłania i pobierania - definicje poniżej:
procedure WyslijPlikFTP(Path:String;FileName:String);
var
Stream:TMemoryStream;
begin
if (FileExists(Path+FileName)=True )then
begin
with Form1.IdFTP do
begin
if Connected then
begin
Stream:=TMemoryStream.Create;
ChangeDir('TEST');
Stream:=TMemoryStream.Create;
Stream.LoadFromFile(Path+'\\'+FileName);
Put(Stream,FileName);
Stream.Free;
end;
end;
end;
end;
//////////////////////////////////////////////////////
procedure PobierzPlikFTP(Path:String;FileName:String);
var
Stream:TMemoryStream;
begin
if (FileExists(Path+'\\'+FileName)=False)then
begin
with Form1.IdFTP do
begin
if Connected then
begin
Stream:=TMemoryStream.Create;
ChangeDir('TEST');
Get(FileName,Stream);
Stream.SaveToFile(Path+'\\'+FileName);
Stream.Free;
end else
begin
Exit;
end;
end;
end;
end;
Podczas pobierania pliku program się zawiesza podczas wykonywania Get(FileName,Stream)
HELP.