[Delphi] TStreams, memory naar stream

[jvdmeer]

Hallo,
Via een reeks bewerkingen genereer ik een compleet geheugenblok met data. In dit geval betreft het een gifje. Nu wil ik dit gifje tonen. Nu doe ik dat op de volgende manier:

Delphi:

  Buffer:array[0..8191] of byte;
  TmpBestand:file;
  ...
  assignfile(TmpBestand,'e:\test.gif');
  rewrite(TmpBestand,1);
  BlockWrite(TmpBestand,Buffer[0],Lengte);
  closeFile(TmpBestand);

  gif.LoadFromFile('e:\test.gif');

Iets in mij zegt dat dat efficienter kan via TStreams, maar daarvoor geldt het verhaal van de klok en de klepel.
Na een hoop help-files en internetpagina's te hebben doorlopen, denk ik gebruik te moeten maken van TMemorystream, setpointer. Maar hoe daar kom ik niet uit.

Ik denk dat het iets moet worden van:

Delphi:

  TmpStream:TMemorystream;
  ...
  TmpStream:=TmemoryStream.create;
  TmpStream.SetPointer:=@Buffer;
  TmpStream.Size:=Lengte;
  
  gif.LoadFromStream(TmpStream);
  
  TmpStream.Free;

Maar dat werkt niet. En TStreams is slecht gedocumenteerd, kan iemand mij helpen?

[CyeZ]

Probeer eens (uit m'n hoofd):

Delphi:

  msTmpStream := TMemoryStream.Create;
  try
    msTmpStream.WriteBuffer(Buffer,Lengte);

    gif.LoadFromStream(msTmpStream); 
  finally
    FreeAndNil(msTmpStream);
  end;

[jvdmeer]

WriteBuffer heb ik over heen gekeken, maar de oplossing die jij noemt geeft een:
GifException "Premature end of data".

terwijl ik zeker weet dat alle data in het buffer staat.
Dus iets werkt er niet goed met WriteBuffer en LoadFromString;

[Creepy]

Voordat je de loadfromstream doet moet je niet vergeten de positie pointer in de buffer terug aan het begin te zetten m.b.v. seek()

[CyeZ]

Hmm stom dat ik daar niet aan heb gedacht ja

Delphi:

  msTmpStream := TMemoryStream.Create;
  try
    msTmpStream.WriteBuffer(Buffer,Lengte);
    msTmpStream.Seek(soFromBeginning,0);

    gif.LoadFromStream(msTmpStream); 
  finally
    FreeAndNil(msTmpStream);
  end;

Zoiets zal het dan worden.

[jvdmeer]

CyeZ schreef op 10 April 2003 @ 09:57:
Hmm stom dat ik daar niet aan heb gedacht ja

...

Zoiets zal het dan worden.

Dit werkt inderdaad, bedankt. Ik ga zeker kijken of ik nog meer prachts kan vinden in TStreams.