Скачать: CL | DM;

подкинте исходник передачи файла по сети   Найти похожие ветки 

← →
VOVA   (2004-07-16 16:21) [0]

подкинте исходник передачи файла по сети на 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;

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

---

← →
Reindeer Moss Eater ©   (2004-07-16 16:25) [1]

fstream:TMemoryStream;
begin
fStream := TMemoryStream.Create;
AThread.Connection.WriteBuffer(fstream,sizeof(fstream),true);

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

---

← →
Reindeer Moss Eater ©   (2004-07-16 16:28) [2]

Ну и еще:
В какой автошколе научили передавать методу WriteBuffer экземпляр потока?

---

← →
Vova   (2004-07-16 17:14) [3]

да я уже делал WriteBuffer и ReadBuffer но ничего не передайот создайот файл размером 0 , ну подкиньте пример!!!

---

← →
Reindeer Moss Eater ©   (2004-07-16 17:45) [4]

да я уже делал WriteBuffer и ReadBuffer
Это все что ты знаешь?
Есть много других методов, процедур и функций.
Если уж ты программируешь методом слепого перебора, то почему остановился после двух попыток?

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

---

← →
Vova   (2004-07-16 17:56) [5]

Indy\IndyDemos\ImageServer\Server я использую єтот пример і у мене файл переслалса но почемуто єво обям получилса 100 мБ

---

← →
Reindeer Moss Eater ©   (2004-07-16 17:59) [6]

А это плохо?

---

← →
Vova   (2004-07-16 18:19) [7]

когда вставил строчку AThread.Connection.Disconnect; заработало
но никак непойму в оних примерах передають файл на сервер и єсть што файл передають на клиєн ето получаєтся што файл можно гонят туда сюда!!!

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

---

← →
Reindeer Moss Eater ©   (2004-07-16 18:20) [8]

што файл можно гонят туда сюда!!!
А это плохо?

---

← →
Vova   (2004-07-16 18:37) [9]

а где наплохо , тамде нас нет штоли!!???

---

← →
Reindeer Moss Eater ©   (2004-07-16 18:53) [10]

Вова, тебя дома дочка|внучка ждет не дождется. Иди домой Вова.

---

← →
Vova   (2004-07-16 19:01) [11]

сам иди .....

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.023 c