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

Сокеты   Найти похожие ветки 

← →
1+Random(9999)   (2005-07-08 14:46) [0]

Помогите чем сможете... Как послать файл через сокет ???

---

← →
Digitman ©   (2005-07-08 14:47) [1]

> Как послать файл через сокет ???


послать имя файла + послать содержимое файла

---

← →
1+Random(9999)   (2005-07-08 14:49) [2]

как это будет выглядить программно ????

---

← →
Digitman ©   (2005-07-08 14:51) [3]

как угодно.
в зависимости от того что есть "сокет" в твоем понимании.

---

← →
1+Random(9999)   (2005-07-08 14:52) [4]

Лови....
Должно сработать.......

procedure SendFileBySocket(filename: string);
var
 srcfile: TFileStream;
begin
 {Открываем файл filename}
 srcfile := TFileStream.Create(filename,fmOpenRead);
 {Посылаем его первому подключенному клиенту}
 ServerSocket1.Socket.Connections[0].SendStream(srcfile);
 {Закрываем файл}
 srcfile.Free;
end;

---

← →
Digitman ©   (2005-07-08 14:54) [5]

> 1+Random(9999)   (08.07.05 14:49) [2]


> 1+Random(9999)   (08.07.05 14:52) [4]


"Тихо сам с собою.." (с) ?)

---

← →
Big Joe   (2005-07-08 14:55) [6]

:))) Я так обращаюсь

---

← →
Digitman ©   (2005-07-08 14:56) [7]

> SendStream(srcfile);
>  {Закрываем файл}
>  srcfile.Free;


srcfile.Free приведет к AV

---

← →
DiamondShark ©   (2005-07-08 14:58) [8]

> srcfile.Free приведет к AV

Это если повезёт.
Хуже, если не приведёт. ;)

---

← →
Digitman.   (2005-07-08 15:00) [9]

все нормально

---

← →
Big Joe   (2005-07-08 15:02) [10]

1+Random(9999) тебе для чего ? зайди комне на хату сегодня
помогу чем смогу...

---

← →
Digitman ©   (2005-07-08 15:03) [11]

> DiamondShark ©   (08.07.05 14:58) [8]


может не повезет)
но желательно чтобы повезло)

---

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

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



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