не работает IStream::Read в delphi

[skymaster]

не могу понять, как прочесть нужное количество байт из стрима...

[mihali4]

Stream.Read (Buffer, Count)
Вы не пробовали в штатном хэлпе поискать по слову IStream ?
Там все методы описаны и расписаны...

[skymaster]

и мсдн смотрел... какого типа buffer должен быть и как потом из него вытащить данные?

[skymaster]

OleCheck (Stg.OpenStream ('f',nil,STGM_READWRITE
or STGM_SHARE_EXCLUSIVE,0,Strm));
Strm.Read(Ptr, 54);

пишет что не хватает параметров...

[Пепел Феникса]

например

var i:byte;
----------
Stream.read(i,1);

прочтет один байт в переменную i.

[mihali4]

Сообщение от skymaster

и мсдн смотрел... какого типа buffer должен быть и как потом из него вытащить данные?

При чем тут мсдн?
Вот ответ из штатного дельфийского хэлпа:

Read method (ISequentialStream)
Reads a specified number of bytes from the current position in the stream.

Delphi syntax:

function Read(pv: Pointer; cb: Longint; pcbRead: PLongint): HResult; virtual; stdcall;

C++ syntax:

virtual HRESULT STDMETHODCALLTYPE Read(void __RPC_FAR *pv, ULONG cb, ULONG __RPC_FAR *pcbRead) = 0;

Description

Read reads up to cb bytes from the current position in the stream into the buffer to which pv points and updates the current position to the end of the bytes that were read.

pv is the buffer into which to read the bytes.

cb is the maximum number of bytes to read.

pcbRead returns the number of bytes that were actually read. This value will be less than or equal to cb.

Read returns S_OK if it successfully reads pcbRead bytes into the buffer. It returns STG_E_INVALIDPOINTER it can’t read because pv is nil (Delphi) or NULL (C++). It returns S_FALSE if the read operation fails for any other reason.

По-моему, отчетливее некуда.
Все типы прописаны, назначение их тоже...

[skymaster]

void __RPC_FAR *pv это в паскале как объявить?
и как из него потом данные достать?
прошу прощения за тупость... плохо дружу с паскалем

[Ring0Sn]

void __RPC_FAR *pv это в паскале как объявить?

Pointer

Strm.Read(Ptr, 54);

пишет что не хватает параметров...

pv is the buffer into which to read the bytes.

cb is the maximum number of bytes to read.

pcbRead returns the number of bytes that were actually read. This value will be less than or equal to cb.

pv - указатель на буфер с данными (Pointer)
cb - длина буфера (Longint)
pcbRead - указатель на буфер типа Longint, ктрый будет содержать, в результате выполнения, кол-во успешно прочитанных байт (^Longint)

в твоем случае так:

var
  tmpSize : PLongint;
begin
...Strm.Read(Ptr, 54, tmpSize);

[skymaster]

после выполнения Ptr = nil
...