Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

подкинте исходник передачи файла по сети [D7, Win2k, WinXP]

VOVA © (2004-07-16 16:21:00)
подкинте исходник передачи файла по сети на IdTCPServer, а то никак неполучаєтся переслать

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
fstream:TMemoryStream;
begin
fStream := TMemoryStream.Create;
AThread.Connection.WriteBuffer(fstream,sizeof(fstream),true);
fstream.SaveToFile('gov.exe');
fstream.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
fstream:TMemoryStream;
begin
TCPClient.Host :=Edit1.Text;
TCPClient.Connect;
fstream:=TMemoryStream.Create;
fstream.LoadFromFile('gov.exe');
TCPClient.ReadBuffer(fstream,sizeof(fstream));
TCPClient.Disconnect;
end;

или што тут нетак

Vova (2004-07-16 19:01:00) [1]
сам иди .....

Reindeer Moss Eater (2004-07-16 18:53:00) [2]
Вова, тебя дома дочка|внучка ждет не дождется. Иди домой Вова.

Vova (2004-07-16 18:37:00) [3]
а где наплохо , тамде нас нет штоли!!???

Reindeer Moss Eater (2004-07-16 18:20:00) [4]
што файл можно гонят туда сюда!!!
А это плохо?

Vova (2004-07-16 18:19:00) [5]
когда вставил строчку AThread.Connection.Disconnect; заработало
но никак непойму в оних примерах передають файл на сервер и єсть што файл передають на клиєн ето получаєтся што файл можно гонят туда сюда!!!

AThread.Connection.OpenWriteBuffer;
AThread.Connection.WriteStream(fStream);
AThread.Connection.CloseWriteBuffer;
AThread.Connection.Disconnect;

Reindeer Moss Eater (2004-07-16 17:59:00) [6]
А это плохо?

Vova (2004-07-16 17:56:00) [7]
Indy\IndyDemos\ImageServer\Server я использую єтот пример і у мене файл переслалса но почемуто єво обям получилса 100 мБ

Reindeer Moss Eater (2004-07-16 17:45:00) [8]
да я уже делал WriteBuffer и ReadBuffer
Это все что ты знаешь?
Есть много других методов, процедур и функций.
Если уж ты программируешь методом слепого перебора, то почему остановился после двух попыток?

ну подкиньте пример!!!
Вчера/позавчера в этой ветке уже был пример.

Vova (2004-07-16 17:14:00) [9]
да я уже делал WriteBuffer и ReadBuffer но ничего не передайот создайот файл размером 0 , ну подкиньте пример!!!

Reindeer Moss Eater (2004-07-16 16:28:00) [10]
Ну и еще:
В какой автошколе научили передавать методу WriteBuffer экземпляр потока?

Reindeer Moss Eater (2004-07-16 16:25:00) [11]
fstream:TMemoryStream;
begin
fStream := TMemoryStream.Create;
AThread.Connection.WriteBuffer(fstream,sizeof(fstream),true);

Ну и что же ты передаешь?
Дырку от бублика?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »