Из памяти в файл. Как?

← →
tower (2004-05-11 20:28) [0]

Помогите с написанием логов.

Buffer:Pointer;
BufSize:Cardinal;
.......
BufSize:=8192;
GetMem(Buffer,BufSize);
..........
ReadFile(FSocket,Buffer^,BufSize,BytesRead,ov);

После етой процедуры Buffer указывает на блок в памяти.
Нужно этот блок записать в файл.

Может кто знает. Помогите.

← →
Palladin © (2004-05-11 21:03) [1]

Вот когда ты объснишь что ты написал, строчка за строчкой и расскажешь про все используемые переменные (словесно) тогда будет смысл помочь...

← →
Яичница © (2004-05-11 21:06) [2]

F1 BlockWrite

← →
tower (2004-05-11 21:24) [3]

Спасибо за F1 BlockWrite

это не единственный способ -)
см. также TFileStream (имхо, пригодиться)

Типа этого
var h, n : DWORD; ..... begin ... h := CreateFile(PChar(FileName), GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_ALWAYS, 0, 0); if h = DWORD(-1) then begin /// Всё плохо ..... Exit; end; WriteFile(h, Buffer^, BufSize, n, nil); CloseHandle(h); ... end;

Из памяти в файл. Как? Найти похожие ветки