[Delphi] TMemoryStrem - read buffer - gdzie tkwi błąd?

0

var
plik: TMemoryStream;
b: TBitmap;
buf: string;
begin
plik:=TMemoryStream.Create;
b:=TBitmap.Create;
b.LoadFromFile('./a.bmp');
b.SaveToStream(plik);
plik.Seek(0, soFromBeginning);
plik.Read(buf, plik.Size);

gdzie tkwi błąd - chcę pobrać buffer zmiennej plik do buf........

0

Moim zdaniem (choc nie mam duzo doswiadczenia ze strumieniami):

plik.Seek(0, soFromBeginning);
SetLength(buf, plik.Size);
plik.Read(buf[1], plik.Size);

PS dlaczego nie ladujesz od razu do Buf tylko poprzez stream?

1 użytkowników online, w tym zalogowanych: 0, gości: 1