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

работа с tfilestream и динамическим массивом   Найти похожие ветки 

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

Уважаемые программисты.

Подскажите где у меня ошибка. Все работает нормально пока не дойдет до FreeMem. Выдает Invalid pointer operation.
var buf : pchar;
...
l := Socket.ReceiveLength;
GetMem(buf,l+1);
Readerror:=Socket.ReceiveBuf(buf,l);
If readerror > 0 then
begin
src := TFileStream.Create"c:\myfile.txt",fmOpenReadWrite);
src.Seek(0,soFromEnd);
src.WriteBuffer(buf,l);
src.Free;
end;
FreeMem(buf);

Заранее спасибо. Алексей

---

← →
Digitman ©   (2004-07-16 16:42) [1]

l := Socket.ReceiveLength;
GetMem(buf,l);
Readerror:=Socket.ReceiveBuf(buf,l);
If readerror > 0 then
begin
src := TFileStream.Create"c:\myfile.txt",fmOpenReadWrite);
src.Seek(0,soFromEnd);
src.WriteBuffer(buf^,Readerror);
src.Free;
end;
FreeMem(buf);

---

← →
alex_sc   (2004-07-19 12:47) [2]

Большое спасибо
Правда заработало только после изменения
Readerror:=Socket.ReceiveBuf(buf,l) на
Readerror:=Socket.ReceiveBuf(buf^,l);
Алексей

---

← →
Digitman ©   (2004-07-19 13:00) [3]

> alex_sc   (19.07.04 12:47) [2]


да, разумеется

---

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

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



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