string in array of char umwandeln

[Aenogym]

hi,

ich habe ein problem. ich möchte einen string in einen array of char umwandeln. das war meine idee:

Delphi-Quellcode:

var msg: string;
    new_msg: array of char;
    i: integer;
begin
  setlength(new_msg, length(msg));
  for i := 0 to high(new_msg) do
  begin
    new_msg[i] := msg[i+1];
  end;
end;

der compiler meckert nicht. aber während der laufzeit crasht mein programm bei der zeile "new_msg[i] := msg[i+1];".

habt ihr eine funktionierende möglichkeit, einen string in einen array of char und auch wieder zurück umzuwandeln?

danke,
Aenogym

[alcaeus]

Probiers mal so:

Delphi-Quellcode:

var msg: string;
    new_msg: array of char;
    i: integer;
begin
  setlength(new_msg, length(msg));
  for i := 1 to Length(msg) do
  begin
    new_msg[i-1] := msg[i];
  end;
end;

Vielleicht funktioniert das jetzt...

Greetz
alcaeus

[Aenogym]

tja und wie geht das andersrum?
ich kanns nur testen, wenn ich das ganze auch wieder zurück in einen string konvertieren kann. ich will nämlich den array of char durchs internet schicken und der client soll ihn dann empfangen.

also beim server hab ich das jetzt so angepasst. hab auch versucht, das ganze "umzudrehen" und dann beim client einzufügen aber da gibts dann wieder ne exception.

Aenogym

[Ratte]

Probier mal

Delphi-Quellcode:

var msg: string;
    new_msg: array of char;
    i: integer;
begin
  setlength(new_msg, length(msg)-1);
  for i := 1 to length(msg) do
  begin
    new_msg[i-1] := msg[i];
  end;
end;

Ratte

[alcaeus]

@Ratte: Willkommen zur Zugriffsverletzung bei der letzten Schreiboperation. Length gibt dir nämlich Ord(msg[0]) zurück, und das ist zufällig die Anzahl Zeichen im String. Das -1 im SetLength musst du also weglassen.

Das Zurückumwandeln funktioniert jetzt ganz einfach:

Delphi-Quellcode:

var msg: string;
    new_msg: array of char;
    i: integer;
begin
  setlength(msg, length(new_msg));
  for i := 1 to Length(new_msg) do
  begin
    msg[i] := new_msg[i-1];
  end;
end;

Greetz
alcaeus

[gekmihesg]

ging das nicht ungefähr so:

array_of_char:=PChar(string);

[Christian Seehase]

Moin Zusammen,

es ginge auch noch so:

Delphi-Quellcode:

var
  msg     : string;
  new_msg : array of char;

begin
  msg := 'Meldung';
  setlength(new_msg,length(msg));
  StrLCopy(@new_msg[0],@msg[1],length(new_msg));
end;

@alcaeus
ord(msg[0]) wäre es bei einem ShortString (wobei hier length(msg) genausogut ginge).
Der Typ string ist eigentlich ein Pointer auf den Inhalt des Strings.
Auf der Adresse -4 beginnt der Zähler, auf Adresse -8 ein Referenzzähler.

Delphi-Quellcode:

var
  msg     : string;
  pLength : PDWORD;

begin
  msg := 'Meldung';
  pLength := PDWORD(msg);
  dec(pLength);
  ShowMessage(IntToStr(pLength^));
end;

[Ratte]

@alcaeus: Also bei mir funzt's fehlerlos...

Ratte

[Aenogym]

WOW, danke, dass sich soviele leute diesem thema annehmen ;)
ich werd's denn mal versuchen.

Aenogym

[Aenogym]

hi nochmal,

also ich habs jetzt getestet und es klappt irgendwie nicht. das umwandeln von string in array klappt (array inspected - einzelne chars sind drin). dann wird mein record (in dem dieses array drinsteckt) über den serversocket versendet und kommt auch beim client an.

jetzt will ich es weiterverarbeiten, hänge aber wieder an einer exception:

Delphi-Quellcode:

var name: string;
    msg.username: array of char;

  setlength(name, length(msg.username));  //<== hier exception
  for i := 1 to Length(msg.username) do
  begin
    name[i] := msg.username[i-1];
  end;

falls es weiterhilft, hier mal die meldung:

Code:

---------------------------
Debugger Exception Notification
---------------------------
Project iceChat.exe raised exception class EAccessViolation with message 'Access violation at address 004059BC in module 'iceChat.exe'. Read of address 008D2688'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

ich kann auch noch mehr code zeigen, nur will diesen post jetzt nicht so füllen ;)
aber ist der code fürs zurückwandeln vielleicht doch fehlerhaft oder mache ich was falsch?

edit: ich versuche einfach mal die möglichkeit von christian seehase.

thx,
Aenogym

[MrKnogge]

Servus !

vorweg, der variablenname "Name" ist schonmal unglücklich gewählt, da er von jedem objekt benutzt wird. Dann:

Delphi-Quellcode:

setlength(name, length(msg.username));

wozu ?

Das könntest du auch weglassen, und dann in der Schleife mit:

Delphi-Quellcode:

for i := 1 to Length(msg.username) do
    myname := myname + msg.username[i-1];

hintendrann hängen.

[Aenogym]

okay danke.

fast so hatte ich das ja schon. die möglichkeit von christian seehase klappt nicht (meldung: "invalid pointer operation"...).
langsam glaube ich aber auch, dass mein record nicht richtig ankommt.

versand vom server:

Delphi-Quellcode:

type  TChatMessage = record
    command: integer;
    userid: integer;
    username: array of char;
    parameters: array of char;
  end;

//...

var rec: TChatMessage;
  serversocket1.Socket.Connections[0].SendBuf(rec, sizeof(rec));

empfang beim client (in dem TClientSocket.OnRead-Event):

Delphi-Quellcode:

socket.receiveBuf(rec, sizeof(rec)

sollte doch klappen, oder?

Aenogym

[MrKnogge]

Ich fürchte nicht, SizeOf hat probleme mit dynamischen Arrays.
(ob auch mit statischen, kann ich nicht sagen)

Tipp:
Schreibe command, userid, Length(Username), Length(parameters), sowie die beiden Arrays in ein MemoryStream und versende dann den.

[Chewie]

Zitat:

Zitat von MrKnogge

Ich fürchte nicht, SizeOf hat probleme mit dynamischen Arrays.

Wieso denn das? Sizeof funktioniert wunderbar mit dynamischen Arrays, man muss als Programmierer nur wissen, dass eine dynamische Array-Variable nichts weiter als ein zeiger auf den Speicherbereich des Arrays ist und dementsprechend 4 Bytes groß. Um die Größe, die ein dynamisches Array belegt herauszufinden, reicht (bei eindimensionalen Arrays) ein Length(DynArray) * Sizeof(DynArray[0]).

[choose]

Hallo Aenogym,

aus Deinem Code lese ich, dass Du einen Record über Sockets an einen anderen Prozess (oder gar Rechner) übertragen möchtest. Bitte lies Dir den Hinweis von Chewie genau durch!

Solltest Du das Record auf diese Weise übertragen, wird lediglich ein Verweis auf die tatsächlichen Daten (und indirekt auf die von Chewie dargestellten Metadaten) im Speicherraum des Absenderprozesses übertragen, nicht aber die Daten selbst!

Das Problem, dass Dich beschäftig heißt Serialisierung und ist hier (auch im Zusammenhang mit Records) schon mehrfach diskutiert worden.

[Aenogym]

danke leute.
dass das thema hier schon öfter diskutiert wurde, hab ich in der suche gesehen...
ich werde denn mal die möglichkeit mit dem memoryStream ausprobieren (obwohl ich eigentlich noch nie mit streams gearbeitet hab - schon garnicht mit memorystreams...).

aber danke euch allen, ich schaff das schon irgendwie :thuimb:

Aenogym