Mein Chatprog. funzt nicht !!

[Vader]

ich hab ein chatprog geschrieben wo der client den server text sendet und der server den client text senden soll.
aber das funzt nicht.

client

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Clientsocket1.Active = true then Clientsocket1.Socket.SendText(Edit1.Text);
  Edit1.Text:='';
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
    Memo1.Lines.Add('***Connected.')

end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   Memo1.Lines.Add('***Disconnected.');
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add(Socket.ReceiveText);
end;

end.

server

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
serversocket1.Open;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add(Socket.ReceiveText);
end;




procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  serversocket1.Socket.SendText(Edit1.Text);
  Edit1.Text:='';
end;

end.

was ist da falsch ?


mfg vader

[Langohr]

Also ich fange erst einmal bei der Verbindung zum Server an:

1.) Beide (Server und Client) müssen den Selbenport besitzen
welche du benutzen kannst steht im Forum musst du mal die Suche nutzten

2.) Der Client muss in der Eigenschaft "Address" die IP des Server beinhalten

Der Client sieht mir ansonsten so richtig aus, allerdings beim Server würde ich noch einen Button hinzufügen, der das senden übernimmt ähnlich wie beim Client

Code:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if Serversocket1.Active = true then 
  if ServerSocket1.Socket.ActiveConnections > then  
  ServerSocket1.Socket.Connections[1].SendText(Edit1.Text); 
  Edit1.Text:=''; 
end;

[Die Muhkuh]

1. Könntest du den Titel bitte aussagekräftiger machen?

2. Vielleicht stellst du mal den Server und den Client auf Acitve = true


@Langohr

wenn dann sollte das schon so heißen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var
  I: Integer; //<- Ohne des gehts net.
begin 
  if Serversocket1.Active = true then 
  if ServerSocket1.Socket.ActiveConnections > then 
  begin
    for I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do  
    begin 
      ServerSocket1.Socket.Connections[1].SendText(Edit1.Text); 
      Edit1.Text:='';
    end;
  end;
end;

3. Bitte zukünftig den Delphi-Code in zwei [ delphi] [ /delphi] machen (Ohne die Leerzeichen!)

[Vader]

wenn ich den code :

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer; //<- Ohne des gehts net.
begin
  if Serversocket1.Active = true then
  if ServerSocket1.Socket.ActiveConnections > then
  begin
    for I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do 
    begin
      ServerSocket1.Socket.Connections[1].SendText(Edit1.Text);
      Edit1.Text:='';
    end;
  end;
end;

kommt die fehlermeldung:

Fehler] Unit1.pas(57): Ausdruck erwartet, aber 'THEN' gefunden
[Fehler] Unit1.pas(58): Operator oder Semikolon fehlt
[Fataler Fehler] Server1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

mfg vader

[Die Muhkuh]

Zitat von Vader:

wenn ich den code :

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer; //<- Ohne des gehts net.
begin
  if Serversocket1.Active = true then
  if ServerSocket1.Socket.ActiveConnections > then
  begin
    for I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do 
    begin
      ServerSocket1.Socket.Connections[1].SendText(Edit1.Text);
      Edit1.Text:='';
    end;
  end;
end;

kommt die fehlermeldung:

Fehler] Unit1.pas(57): Ausdruck erwartet, aber 'THEN' gefunden
[Fehler] Unit1.pas(58): Operator oder Semikolon fehlt
[Fataler Fehler] Server1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

mfg vader

Ups sorry!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer; //<- Ohne des gehts net.
begin
  if Serversocket1.Active = true then
  begin
    if ServerSocket1.Socket.ActiveConnections > 0 then
    begin
      for I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do 
      begin
        ServerSocket1.Socket.Connections[1].SendText(Edit1.Text);
        Edit1.Text:='';
      end;
    end;
  end;
end;

So sollte es gehen

[Vader]

hab noch was vergessen !

weil du schreibst ich soll die server und clienteigenschaft active auf true setzen.
ist serversocket und cliensocket.open im codeteil nicht das gleiche ?
und noch eine frage: ich kann mein chatprog. nur bei mir auf einen
rechner probieren und han bei beiden den port 8700 und host
127.0.0.1 eingegeben .

mfg vader

[Die Muhkuh]

Mach doch am besten einen Button

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Serversocket1.Active := true;
end;

und dann noch einen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Serversocket1.Active := false;
end;

zum verbinden und trennen.



Du kannst auch über Internet mit dem Ding chatten. Du musst nur die IP vom Server wissen

[Vader]

hallo spider,

hab deine code eingefügt hat geklappt, aber :
wenn ich jetzt von client text sende zum server funzt es, wenn ich
aber jetzt vom server zum client text senden will kommt der fehler:
Listenindex überschreitet das Maximun [1]


ist der code vom client überhaupt richtig um vom server text zum empfangen , was ich geschrieben habe.

Code:

procedure TForm1.ClientSocket1Read(Sender: TObject; 
  Socket: TCustomWinSocket); 
begin 
  Memo1.Lines.Add(Socket.ReceiveText); 
end;

mfg vader

[Die Muhkuh]

Also dein Code ist richtig.

Kann mir grad net vorstellen wo dein Fehler ist.

Wo kommt denn der Fehler? Beim Server oder beim Client?

[Vader]

beim server, wenn ich auf den sendenbutton drücke, wo der code:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer; //<- Ohne des gehts net.
begin
  if Serversocket1.Active = true then
  if ServerSocket1.Socket.ActiveConnections > 0 then
  begin
    for I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do 
    begin
      ServerSocket1.Socket.Connections[1].SendText(Edit1.Text);
      Edit1.Text:='';
    end;
  end;
end;

ausgeführt wird ??

mfg vader