idFTP

Здравейте,
имам малък проблем
1. Кънектнах двете приложения (клиент, сървър)
2. От сървъра изпратих файла до клиента
3. ??? искам клиента да приеме изпратения файл и да го запази някъде ???

Моля, помагайте
благодаря ви предварително за мненията

Сървъра на изпраща файлове, а клиента си ги иска - иначе какво щеше да стане ако всеки сървър си прави каквото си иска?


OnAfterGet или OnWorkEnd няма ли да ти свършат работа?

procedure TForm1.IdFTP1AfterGet(ASender: TObject; VStream: TStream);
begin

end;

Предполагам, че в този VStream се намира файла ...

след като клиента се кънекне към сървъра:
1. От клиента изпращам командата "file"
procedure TForm1.Button3Click(Sender: TObject);
begin
idf1.WriteLn('file');
енд;

2. Сървъра я приема и изпраща дадения файл
procedure TForm1.IdFTPServer1TIdCommandHandler0Command(
ASender: TIdCommand);
begin
asender.Thread.Connection.WriteFile('c:\123.jpg');
end;
3. Събитието OnAfterGet не се изпълнява

Ако, съм испуснал или объркал нещо, моля, пишете

[линк]

Heh, благодаря ти за линка, но забравих да уточня, използвам Delphi 7 (в посочените линкове не намерих нищо за Delphi 7)

Моля ви помагайте
много ми е спешно