TMemoryStream → Array of Byte
Материал из DRKB
TMemoryStream --> Array of Byte[править | править код]
Для преобразования TMemoryStream в array of Byte можно использовать следующий код:
procedure TForm1.Button1Click(Sender: TObject);
var
M: TMemoryStream;
Buff: array of Byte;
begin
M := TMemoryStream.Create;
try
M.LoadFromFile('c:\test.htm');
SetLength(Buff, M.Size);
M.Position := 0;
if M.Size > 0 then
M.Read(Buff[0], M.Size);
finally
M.Free;
end;
end;
Author: Rouse_
ID: 00251