Ist es sinnvoll einen Record zu versenden?

[Goldesel]

Hallo,

ich habe folgendes Problem. Ich möchte gern drei Strings über Indy 9 versenden. Der erste String soll im Server ein Ereigniss auslösen. Dann soll der Server einen Record empfangen, in dem die anderen drei (oder auch mehr) Strings entahlten sind. Meine Frage ist jetzt, ob das wirklich sinnvoll ist, oder ob es andere Möglichkeiten gibt, dies zu realisieren.

Vielen Dank
Jannik

[SirThornberry]

ein normaler String in Delphi ist intern ein Pointer. Wenn du also einen Record mit Strings versendest werden nur Pointer verschickt.

[TeronG]

Zitat:

Zitat von SirThornberry

ein normaler String in Delphi ist intern ein Pointer. Wenn du also einen Record mit Strings versendest werden nur Pointer verschickt.

Und wie währe es mit einem non-generischem String!? (ShortString, String[30], ...)

[Goldesel]

Und gibt es dann vielleicht eine andere Möglichkeit?

[halinchen]

Wenn du einen Memorystream nimmst, schreibst du am Anfang die Länge des Strings und dann die einzelnen Chars nacheinander.

Delphi-Quellcode:

var
String:String //Dein String
MS:TMemoryStream;
i:Integer;
C:Char;
begin
MS := TMemoryStream.Create;
i:= length(String);
MS.WriteBuffer(i,sizeof(i));
For i := 1 to length(String) do begin
    C := String[i];
    MS.WriteBuffer(c,sizeof(c));
end;
MS.Free;
end;

so mach ich das immer

[Goldesel]

Ist es nicht in irgendeiner Art möglich, das über eine Stringlist oder so zu realisieren. Das wäre für mich wesentlich einfacher ... ;)

[Matze]

@halinchen: Gewöhne dir generell die Nutzung von Resourcenschutzblöcken an:

Delphi-Quellcode:

MS := TMemoryStream.Create;
try
  ...
finally
  FreeAndNil(MS);
end;

Sonst kann es sein, dass es kracht und der Speicher somit nicht freigegeben wird.

@Jannik: Ich weiß nicht genau, was du vorhast, aber du könntest die Daten über IdHTTP.Post() an den Server schicken, auf dem ein PHP-Skript diese auswerten kann, falls das bei dir möglich ist.

[Neutral General]

Zitat:

Zitat von halinchen

Wenn du einen Memorystream nimmst, schreibst du am Anfang die Länge des Strings und dann die einzelnen Chars nacheinander.

Delphi-Quellcode:

var
String:String //Dein String
MS:TMemoryStream;
i:Integer;
C:Char;
begin
MS := TMemoryStream.Create;
i:= length(String);
MS.WriteBuffer(i,sizeof(i));
For i := 1 to length(String) do begin
    C := String[i];
    MS.WriteBuffer(c,sizeof(c));
end;
MS.Free;
end;

so mach ich das immer

Es geht auch einfacher

:arrow:

Delphi-Quellcode:

var Str:String
    MS:TMemoryStream;
    l:Integer;
begin
  MS := TMemoryStream.Create;
  try
    l:= length(Str);
    MS.Write(l,SizeOf(Integer)); // nicht SizeOf(l) !!
    MS.Write(Str[1],l);
    // Stream speichern/laden/was auch immer
  finally
    MS.Free; // jaaa k FreeAndNil(MS) is noch besser... is es eigentlich "schlimm" wenn man nur .Free benutzt ?
  end;
end;

EDIT: Damit Matze zufrieden ist noch Resourcenschutzblöcke hinzugefügt^^

Gruß
Neutral General

[halinchen]

@Matze: Ich hab das nur hier im Forum getippt. Wenn ich das "richtig" schreibe mache ich das natürlich. Hätte ich dazuschreiben müssen, ich geb's zu...

@Neutral General: Stimmt, kannte ich nicht. :wink:

[Goldesel]

OK, es kann sein, dass ich grad ein totales Black-Out hab, aber ich würde mich freuen, wenn mir jemand kurz einmal erklären könnte (gerne auch mit Beispielcode) wie ich einen Record so über den Indy TCP Server/Client verschicke, dass alles ankommt und das auch klappt. Bin so langsam am verzweifeln ... ;)

Danke schonmal