| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Пересылка файла
Александр из Минска © (2003-06-07 21:14:00)
Всем ПРИВЕТ! Напишите, пожалуйста, кусочек кода, в котором с помощью компанентов TIdTCPClient, TIdTCPServer можно пересылать файл с компа, на котором есть только TIdTCPServer, на комп, на котором только TIdTCPClient.
Nick2000 (2003-06-25 13:24:00) [1]
А ты попробуй компоненты разместить наоборот :)
Александр из Минска (2003-06-10 16:47:00) [2]
>Sheriff
Огромное спасибо, но мне надо с сервера на клиент, а не наоборот.
Sheriff (2003-06-10 15:50:00) [3]Отправка:
...
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 14:23:00) [4]
> Reindeer Moss Eater
А как клиент это должен принять?
Reindeer Moss Eater (2003-06-09 14:50:00) [5]
AThread.Connection.WriteStream(MyFileStream)
Александр из Минска (2003-06-09 13:59:00) [6]
Ну хоть идею подкиньте :(((
| |
