Пересылка файла

← →
Александр из Минска (2003-06-07 21:14) [0]

Всем ПРИВЕТ! Напишите, пожалуйста, кусочек кода, в котором с помощью компанентов TIdTCPClient, TIdTCPServer можно пересылать файл с компа, на котором есть только TIdTCPServer, на комп, на котором только TIdTCPClient.

← →
Александр из Минска (2003-06-09 13:59) [1]

Ну хоть идею подкиньте :(((

← →
Reindeer Moss Eater (2003-06-09 14:50) [2]

AThread.Connection.WriteStream(MyFileStream)

← →
Александр из Минска (2003-06-10 14:23) [3]

> Reindeer Moss Eater

А как клиент это должен принять?

← →
Sheriff (2003-06-10 15:50) [4]

Отправка:
...
IdCln.Connect;
IdCln.Writeln(s); ( IdCln.LocalName) Отправка:
...
IdCln.Connect;
IdCln.Writeln(s); //имя файла
IdCln.Writeln(IdCln.LocalName);//отправитель
IdCln.WriteFile(FileName,true);//файл
IdCln.Disconnect;
...
Прием:
...
fName:=AThread.Connection.Readln;//имя файла
rName:=AThread.Connection.Readln;//отправитель
fStream:=TFileStream.Create(ExtractFileDir(ParamStr(0))+"\Recieve\"+fName, fmCreate);
while AThread.Connection.Connected do AThread.Connection.ReadStream(fStream,-1,true);
FreeAndNil(fStream);
AThread.Connection.Disconnect;
...
обработку ошибок и запихивание в потоки выполни сам. ;)

← →
Александр из Минска (2003-06-10 16:47) [5]

>Sheriff
Огромное спасибо, но мне надо с сервера на клиент, а не наоборот.

← →
Nick2000 (2003-06-25 13:24) [6]

А ты попробуй компоненты разместить наоборот :)

Пересылка файла Найти похожие ветки