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

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

← →
SeNtiMeL ©   (2003-02-07 22:10) [0]

Проблема заключается в том, чтобы отправить нормально файл через СерверСокет клиенту.
Если использовать SendStream, то все работает (Но нельзя на серевере подсчитать кол-во отправленных байтов).
Я сделал такой код :

// Здесь переменная "b" : Pchar;
ms:= TMemoryStream.Create;
ms.LoadFromFile("f:\test.mp3");
ms.Position:= 0;
Socket.SendText(IntToStr(ms.Size) + #0); //Чтобы клиент получил размер входящего файла).


While ms.Position < ms.Size do
begin

if ms.Size-ms.Position < 1024 then
ms.ReadBuffer(b,ms.Size-ms.Position)
else
ms.ReadBuffer(b,1024);
try
ServerSocket1.Socket.Connections[0].SendBuf(b,SizeOf(b));

except
on E: Exception do ShowMessage("ERROR");
end;


end;

ms.Free;




Но у меня вылетает ошибка при передачи... В Отладке в Дельфях выводи окно CPU и много много циФр :)

В чем я допустил ошибку ?

---

← →
SeNtiMeL ©   (2003-02-08 18:29) [1]

разве никто не может подсказать ?

---

← →
Polevi ©   (2003-02-09 13:28) [2]

память под b где выделяется

---

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

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



Память: 0.45 MB
Время: 0.01 c