Records dynamisch verschachteln

[gammatester]

Zitat von sirius:

@gammatester:
Es geht darum, dass in varianten Records keine dynamischen Variablen enthalten sein drüfen (also Strings oder dynamische Arrays). Das hat nix mit dem Finalization-Abschnitt einer Unit zu tun, sondern mit dem Ende des Gültigkeitsbereiches einer Variable.

OK, was dazu gelernt. Allerdings ist das Dynamische bei Kommunikation über Records in der Regel doch wohl eher die Ausnahme, bzw. würde über spezielle Prozeduren laufen, die Pointer und Länge verwerten.

(Wenn man in seine Records string durch string[xx] ersetzt, wird's compiliert)

Gruß Gammatester

[psycore]

Ich versteh aber nicht warum das nicht geht.

Zitat:

Die Teile hinter case teilen sich denselben Speicherbereich. Der Compiler reserviert so viel Platz wie die größte Variante benötigt. Deshalb können auch variante Records in typisierten Dateien verwendet werden.

*edit*

Zitat:

(Wenn man in seine Records string durch string[xx] ersetzt, wird's compiliert)

Heureka!

[gammatester]

Zitat von psycore:

Ich versteh aber nicht warum das nicht geht.

Zitat:

Die Teile hinter case teilen sich denselben Speicherbereich. Der Compiler reserviert so viel Platz wie die größte Variante benötigt. Deshalb können auch variante Records in typisierten Dateien verwendet werden.

Wahrscheinlich wegen der Compilermagic und dem Verwischen von Pointern mit arrays/strings. Es wird wahrscheinlich der Pointer in den Record eintragen, aber die eigentliche Länge der Strings/Arrays ist zum Zeitpunkt des Kompilierens nicht bekannt.

Das ist anders, wenn man string[200] o.ä. nimmt, dann werden zB 201 chars reserviert.

Gammtester

[Apollonius]

Nein, der Punkt ist, dass am Ende jeder Prozedur, die direkt oder indirekt Ansistrings, dynamische Arrays, Variants oder Interfaces verwendet, aufgeräumt werden muss, damit der Referenzzähler stimmt, eben im Gegensatz zu einfachen Typen oder Objektinstanzen. In varianten Records weiß Delphi dann natürlich nicht, ob jetzt ein String oder ein Integer im Record steht, und entsprechend, ob ein Referenzzähler aktualisiert werden muss.

[NickelM]

Also mir kommt dass so vor, als das in eine Endlose diskusion geht.

Ich würde es auch mit Streams versuchen. Einen Record vieleicht, denn du dan in den Stream schreibst und dan rausliest.

[spaxxn]

Darf man fragen, welchen Weg der Kommunikation zwischen Client und Server du dir gedacht hast?

Bedenke dabei, dass Client und Server in unterschiedlichen Adressbereichen laufen... Ergo wirst du dir bestimmt überlegt habe, wie die Daten vom Client zum Server und anders herum gelangen.

[psycore]

Client:

Delphi-Quellcode:

procedure TMainForm.ConnectBtnClick(Sender: TObject);
var
  buffer: TIdBytes;
begin
  MsgRec.id := 1;
  MsgRec.auth.version := '0.1';
  MsgRec.auth.nickname := nick_input.text;
  MsgRec.auth.password := pw_input.text;

  try
    Client.Connect;
    buffer := RawToBytes(MsgRec, SizeOf(TMsgRec));
    Client.IOHandler.Write(buffer);
  except
    ShowMessage('Verbindung konnte nicht hergestellt werden');
  end;
end;

Server:

Delphi-Quellcode:

procedure TMainForm.ServerExecute(AContext: TIdContext);
var
  MsgRec: TMsgRec;
  buffer: TIdBytes;
begin
  AContext.Connection.IOHandler.ReadBytes(buffer, SizeOf(TMsgRec));
  BytesToRaw(buffer, MsgRec, SizeOf(TMsgRec));

  case MsgRec.Id of
    1: ClientAuth(MsgRec, AContext);
  end;

end;

procedure TMainForm.ClientAuth(MsgRec: TMsgRec; Client: TIdContext);
var
  i: Integer;
begin
  for i := 0 to concnt do begin    //Namenszuweisung für IP!
    if Connections[i].client.Binding.PeerIP = Client.Binding.PeerIP then begin
      Connections[i].name := MsgRec.auth.nickname;
      WriteProtocol('Client #' + IntToStr(concnt) + ': ' + Connections[i].client.Binding.PeerIP + ' changed Name to "' + Connections[i].name + '"');
    end;
  end;
  UpdateClientList;
end;

Klappt auch super :]

Muss jetzt nur noch einen Weg finden die Clients eindeutig zu identifizieren, auch wenn die IP dieselbe ist (das Anhängen der Identifizierungsinformationen an das Data Object scheint nicht zu klappen da der Client bei Indy 10 kein Data Objekt besitzt)

[spaxxn]

Hmmm ich würde für den Zweck COM+/DCOM verwenden, aber wenns funtioniert, dann hau rein