работа с 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);
Алексей

> alex_sc (19.07.04 12:47) [2]

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

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