Hvorfor kan ik lade sig gør

I funktionen bruger du  \'socket\'  som record-navn. Burde det ikke være parameterens navn \'Socket\' ?
Eller bibeholder Delphi Pascals \'ligeglad med store og små bogstaver\'.

Hvorfor er der en parameter \'Sender\'?

mvh JakobA

Måske er det fordi du ikke tømmer bufferen, så når du sender første gang indeholder den \'1\' anden gang \'12\', og det er jo ikke lig med \'2\'

ellers kan du prøve at bruge if Pos(\'2\',socket.receivetext) > 0 then
begin
end;

Er du sikker på at du læser et 2 tal

prøv at sætte en ShowMessage ind så kan du se hvad du får ind

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ShowMessage(socket.receivetext); //<-- SÆT DENNE LINIE IND
  if socket.receivetext = \'1\' then
  begin
    memo1.Clear;
    memo1.Lines.add(\'1\');
  end;
  //else FJERN OGSÅ DETTE ELSE DET HAR INGEN BETYDNING
  if socket.receivetext = \'2\' then
  begin
    memo1.Clear;
    memo1.Lines.add(\'2\');
  end;
end;

end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
Var
SockText : ansistring;
begin
SockText := Socket.ReceiveText;

if SockText = \'1\' then
begin
memo1.Clear;
memo1.Lines.add(\'1\');
end;

if SockText = \'2\' then
begin
memo1.Clear;
memo1.Lines.add(\'2\');
end;
end;


Ofte bliver man nødt til at gemme det tekst som den modtager, ellers viker det ikke.

>> DKN
Det du sagde var det jeg skulle bruge, men hvis du lige gidder hjælpe mig med en ting mere, hvordan sender man commandoer istedet for tekst.
håber du ved hvad jeg mener.

du kan kun sende data .. det er så op til det program i den anden ende at genkende det du har sent og så udføre en komando på baggrund af det.. :)

krab -> jeg har posted et svar på det nye spørgsmål. Håber du kan bruge det:)