[delphi] memorystream

[jopiek]

ik heb een memorystream met text en wil deze text veranderen alvorens deze verder als memorystream door te sturen...

dus memorystream->text veranderen->memorystream

hoe kan ik dit op de meest efficiente wijze doen (het gaat om html dat van een IdHTTP komt en - na gewijzigd te zijn - doorgestuurd wordt naar een twebbrowser...

ik krijg wat vage problemen met buffers en zo...

[Creepy]

Wat voor "vage" problemen met buffers? Wat heb je al? Wat gaat er mis?

[kvdveer]

Iets meer info zou inderdaad de oplosbaarheid van je problemen verhogen.

[jopiek]

ok, dit is wat ik nu wil doen:

ik krijg een HTML pagina binnen... een aantal url's daarin zijn ../ i.p.v. de harde link en die wil ik door een harde link vervangen.

ik moet dus uit de memorystream die ik van het TIdHTTP component krijg op de een of andere manier tekst zien te halen, deze wijzigen en tenslotte m.b.v. de memorystream naar de TWebBrowser sturen...

als ik het zakie in een buffer stop, krijg ik een outofmemory error...

[Verwijderd]

Zoiets misschien?

code:

procedure DoDaThing(S: TMemoryStream);
var
  P: PChar;
  I: Integer;
const
  CReplaceWith = 'JoepiedePoepie';
begin
  P := StrPos(S.Memory, PChar('../'));
  while P <> nil do
  begin
    { Vergroot de size van de stream }
    S.Size := S.Size + Length(CReplaceWith) - 3;
    
    { Verplaats het zooitje na ../ in de stream op }
    Move(P^, (P + Length(CReplaceWith) - 3)^, S.Size - (P - S.Memory));
  
    { en zet CReplaceWith ertussen }
    Move(CReplaceWith, P^, Length(CReplaceWith));
    
    { en ga op zoek naar de volgende }
    P := StrPos(P, PChar('../'));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MemStream: TMemoryStream;
  StrStream: TStringStream;
begin
  MemStream := TMemoryStream.Create;
  StrStream := TStringStream.Create(Edit1.Text);
  try
    MemStream.LoadFromStream(StrStream);
    DoDaThing(MemStream);

    StrStream.Size := 0;
    StrStream.CopyFrom(MemStream, 0);
    Edit1.Text := StrStream.DataString;
  finally
    MemStream.Free;
    StrStream.Free;
  end;
end;