Irgendwie komm ich mit dem befüllen eines TMemoryStreams nicht klar.

Folgende Prozedur:

markieren

Delphi-Quellcode:

procedure FillStream(AStream: TMemoryStream);
var
  TestStream : TMemoryStream;
  TestString : string;
begin
 TestStream := TMemoryStream.Create;
 TestString := 'TEST';

 TestStream.Write(TestString, Length(TestString));
end;

Klappt anscheinend, aber sobald ich am Ende der Prozedur der Variablen AStream TestStream zuweisen möchte:

  AStream := TestStream oder direkt AStream füllen lassen will

  AStream.Write(TestSTring, Length(TestString)); schreibt er mir nix rein?!

Hallo,

probiere es mit:
TestStream.Write(TestString[1], Length(TestString));

Hm, weiß nicht ob es nötig ist, aber versuch doch mal:

TestStream.Seek(0,soFromBeginning); bevor du die Zuweisung machst.

Funktioniert leider beides nicht.

Was ich merkwürdig finde ist, dass bei:

zusammenfalten · markieren

Delphi-Quellcode:

function TMPConnection.MakeConnectionStream: TMemoryStream;
var
  TestStream : TMemoryStream;
  TestString : string;
begin
TestStream := TMemoryStream.Create;
Result := TMemoryStream.Create;
TestString := 'TEST';
TestStream.Seek(0,soFromBeginning);
TestStream.Write(TestString, Length(TestString));

Result.Seek(0,soFromBeginning);
 Result.Write(TestString, Length(TestString));
end;

TestStream anscheind gefüllt wird, währen Result leer bleibt

Ich weiß es nicht, aber dies funktioniert bei mir wunderbar:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TfrmHauptBaseForm.Button1Click(Sender: TObject);
var
  ms:TMemoryStream;
  str:string;
begin
  str:='Test';
  ms:=TMemoryStream.Create;
  ms.Write(str[1],Length(str));
  ms.SaveToFile('c:\tst.txt');
  ms.Free;
end;

Mann muss unbeding die Adresse des ersten Zeichens (str[1]) übergeben und nicht die Adresse des Strings.

Dein Problem liegt in

procedure FillStream(AStream: TMemoryStream); wenn du

AStream := TestStream; machst, dann passiert nichts, denn der Parameter wird als Wert übergeben und eine Änderung des Parameters
bleibt nur in der Prozedur erhalten. Genauer gesagt, der Parameter AStream wird kopiert, und du änderst einfach nur
die lokale Variable.

Versuch mal
procedure FillStream(var AStream: TMemoryStream); Ich würde dir jedoch empfehlen, innerhalb von FillStream keinen Stream zu erzeugen, sondern
dem Aufrufer dies zu überlassen. Dann kannst du nämlich Daten an beliebiger Stelle in einem Stream speichern.

zusammenfalten · markieren

Delphi-Quellcode:

procedure FillStream(AStream: TMemoryStream);
var
  TestString : string;
begin
  if not Assigned(AStream) then
    exit; //oder raise exception
TestString := 'TEST';


AStream.Write(TestString[1], Length(TestString));
end;

var TestStream : TMemoryStream;
begin
  TestStream := TMemoryStream.Create;
....
  //hier z.B. weitere Daten schreiben

  FillStream(AStream);