Текущий архив: 2004.09.26;
Скачать: 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 вся ветка
Текущий архив: 2004.09.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.023 c
