Как я могу присвоить значение переменной Olevariant, которая исходит из TStream? - PullRequest
Новая
       10

Как я могу присвоить значение переменной Olevariant, которая исходит из TStream?

1 голос
/ 19 ноября 2010

Мне нужно прочитать из потока и поместить прочитанный буфер в переменную OleVariant (VarArray). 

var
MemoryStream : TMemoryStream;
Data : OleVariant;
begin
            MemoryStream:=TMemoryStream.Create;
            try
                FuncFill(MemoryStream); //Filling the stream
                MemoryStream.Seek(0,0);
                MemoryStream.Read(Data, MemoryStream.Size);//this line lock tha app, i need allocate the memory for the OleVariant variable?
            finally
             MemoryStream.Free;
            end;

end;

Вопрос в том, как назначить прочитанное значение из TMemoryStream дляolevariant переменная?

Я использую Delphi 5.

1 Ответ

6 голосов
/ 19 ноября 2010

Вы можете использовать функцию VarArrayLock, чтобы получить указатель на данные OleVariant и затем прочитать этот указатель.

проверьте этот код, который использует VarArray из varByte элементов.

var
 MemoryStream : TMemoryStream;
 Data : OleVariant;
 DataPtr : Pointer;
begin
   MemoryStream:=TMemoryStream.Create;
     try
      FuncFill(MemoryStream); //Filling the stream
      MemoryStream.Seek(0,0);
          Data    :=VarArrayCreate([0, MemoryStream.Size - 1], varByte);
      DataPtr     :=VarArrayLock(Data);
       try
         MemoryStream.ReadBuffer(DataPtr^,MemoryStream.Size); //Get the pointer to the variant variable.
       finally
         VarArrayUnlock(Data); //when you are done , you must call to VarArrayUnlock
       end;
    finally
      MemoryStream.Free;
    end;    
end;
...