Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.12.23;
Скачать: CL | DM;

Вниз

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

 
Ivolg ©   (2007-11-26 17:41) [0]

Как можно отправить файл через стандартные сокеты Windows ?
Собственно делаю так:

Сервер:
uses
   WinSock;
....
var
    MS: TMemoryStream;
begin
   MS:=TMemoryStream.Create;
   MS.LoadFromFile("C:\1.jpg"); (Вес 300кб)
   MS.Position:=0;
   Send(server_sock, MS.Memory^, MS.Size, 0);
   MS.Free;
end;

Клиент:
var
    buf: string;
    MS: TMemoryStream;
begin
   MS:=TMemoryStream.Create;
   Recv(client_sock, buf, 307200, 0);
   MS.Write(buf, 307200);
   MS.SaveToFile("C:\2.jpg");
   MS.Free;
end;

После пересылки доходит только часть файла. Может есть другие варианты пересылки ?


 
tesseract ©   (2007-11-26 18:01) [1]


> Может есть другие варианты пересылки ?


Например блоками по 1 кбайту.


 
Ivolg ©   (2007-11-26 18:50) [2]

tesseract ©   (26.11.07 18:01) [1]

Над этой идеей я уже думал. Мне кажется, что это долговато будет, если файл большого объема, например 20мб.


 
Сергей М. ©   (2007-11-27 08:18) [3]


> делаю так


Это что, весь код ?
Где создание и инициализация гнезд ?


> Recv(client_sock, buf, 307200, 0);


Здесь грубейшая ошибка.


 
Ivolg ©   (2007-11-28 08:16) [4]

Сергей М. ©   (27.11.07 08:18) [3]

Все есть, я просто привел пример, как я отправляю и получаю данные.


 
Сергей М. ©   (2007-11-28 08:29) [5]


> Ivolg ©   (28.11.07 08:16) [4]


> Все есть


Если режим неблокирующий, то логика приема/передачи, реализованная тобой, неверна.



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

Текущий архив: 2007.12.23;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.02 c
8-1171310423
man-1982
2007-02-12 23:00
2007.12.23
как из двух изображений сделать одно


1-1191691397
Андрей_Св
2007-10-06 21:23
2007.12.23
разрезание StringGrid по листам


2-1196074220
WFS
2007-11-26 13:50
2007.12.23
Дайте плз ссылку на статью о работе Delphi7 с MSWord 2003


9-1164018658
Ярослав Ерёменко
2006-11-20 13:30
2007.12.23
Алгоритм отрисовки тайлов методом альфа-блендинга


4-1181301429
inex
2007-06-08 15:17
2007.12.23
информация о сетевом подключении