Forum: Netzwerke
Delphi
by Kalle_XXXX,
11. Okt 2004
Ok also hier für alle denen es weiterhilft, ganz einfach so:
Client
Athread.Connection.WriteBuffer(Configs, Sizeof(Configs));
Server im OnExecute
Athread.Connection.ReadBuffer(Configs, Sizeof(Configs));
Und schon klappts
Forum: Netzwerke
Delphi
by Kalle_XXXX,
11. Okt 2004
Naja genau das ist ja mein Problem...
Forum: Netzwerke
Delphi
by Kalle_XXXX,
8. Okt 2004
OK Also der Buffer des Records beträgt logischerweise 96Byte, da
4 * String = 80 Byte
+ 2 * Integer = 16 Byte
= 96 Byte
Im On Execute, sprich beim Read bleibt er aber beim 6. Mal nach Connect ( Pointer wahrscheinlich gerade auf configs.nachricht_length ) hängen.
Ist die BufferSize noch zu groß?
Forum: Netzwerke
Delphi
by Kalle_XXXX,
8. Okt 2004
Ähm....Ja.
Also so sieht dass ganze jetzt bei mir aus. Kann mir vielleicht jemand erklären, was genau ich noch zu machen hab?
Client
procedure TFr_MainChat.SpeedButton2Click(Sender: TObject);
var
BuffSize :Integer;
begin
//Versenden
if Komponents.IdTCPClient1.Connected = true then
Forum: Netzwerke
Delphi
by Kalle_XXXX,
8. Okt 2004
RecBuffSize:... 32768
Wenn du mir jetzt noch sagst, ob mir das weiterhilft.?
Versteh nur Bahnhof
Forum: Netzwerke
Delphi
by Kalle_XXXX,
8. Okt 2004
Habe soeben mein OnExecute zur Fehlersuche angepasst
procedure TKomponents.IdTCPServer1Execute(AThread: TIdPeerThread);
var
CB :String;
BuffSize :Integer;
begin
// CB := athread.Connection.ReadLn('');
// Fr_MainServer.Memo1.lines.add(CB);
// Athread.Connection.ReadBuffer(Configs, sizeof(Configs)); // ReceiveBuf(buff, High(Buff) - Low(Buff));
...
Forum: Netzwerke
Delphi
by Kalle_XXXX,
8. Okt 2004
Naja da hab ich mein Struktur nun so verändert.
type
TConfigs = record
ClientIP : String;
Nickname : String;
ServerName : String;
PortName : Integer;
Nachricht : String;
Nachricht_length : integer;
end;
Forum: Netzwerke
Delphi
by Kalle_XXXX,
8. Okt 2004
Hallo nochmal!
Ich versuche ein von mir erstelltes Record (Clientdaten und Textmeldung) via WriteBuffer an den idTCPServer zu schicken.
Auslesen mit ReadBuffer funktioniert aber ni ganz so.
Hier mein Record, welches auch soweit gefüllt wird:
type
TConfigs = record
ClientIP : String;
Nickname : String;
ServerName : String;
PortName ...