Форум: "Сети";
Текущий архив: 2003.08.28;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Александр из Минска   (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]

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2003.08.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.006 c