Ping Pong (IRC)

Desuden kan jeg sige, at PING: [Tallet] bliver loadet ind i en TMemo ved navn: memLines

er der noget tal med fra ping?
jeg ved det ikke, men serveren beregner det vel når du har sendt pong ?

Det sker sådan her:

1. Jeg connecter og sender mit navn til serveren <- Det virker fint
2. Serveren sender denne her meddelelse til mig: "PING :[Et tilfældigt tal]
3. Programmet skal svare serveren med denne her meddelelse: "PONG :[PING tallet]

okay hvis du bare skal have ping tal bliver det vel noget lign:

var
ping:string;
begin
ping := 'PING :50'; // ved ikke om [] skulle med?
showmessage(copy(ping, 6, length(ping)));
end;

ikke testet

Det er rigtigt nok, at [] ikke skal med ;)... Tester det lige af :)

Hmm... Det var ikke lige det den skulle. Lidt mere detalieret:

1. Jeg får tilsendt en besked til min Memo, hvor der står: "PING :[Et tal]"
2. Mit program skal så besvare denne besked med: "PONG :[tallet fra ping]"

ok pakkede den tallet ud, det var sådan set bare det du skulle se...

Jeps... Eller rettere sagt, den pakkede tallet og ":" ud. Men det kan jo bare ændres ved at ændre 6 til 7 - Så ja, den pakkede tallet ud :)

ja okay,
men så skal du jo bare selv sende den tilbage ikke?
kan desvære ikke se dit problem..

Hmm... Tror jeg er lige ved, at få det til at virker med den lille del kode der. Prøver mig lige lidt frem.

Sådan. Nu fik jeg det til at virke... Bare lav et svar, så skal jeg nok acceptere ;)

okay

Måske endnu lettere at sige:

//Ping := 'PING :50';
Ping[2] := 'O';

ok det jeg lavede var eksempel, ved ikke lige hvordan du vil bruge det der razersedge ?

Det hele endte med at se sådan her ud:

procedure TForm1.Timer3Timer(Sender: TObject);
var
  st2 : tstrings;
  i2  : integer;
  pong: string;

Begin
  st2 := tstrings.Create;
  st2 := memLines.Lines;

  for I2 := 0 to st2.Count - 1 do
  begin
    if pos('PING :', st2.Strings[I2]) <> 0 then // Fandt PING :
      begin;
        Memo2.Clear;
        Memo2.Lines.Add(st2.Strings[I2]);
        pong := Memo2.Lines[0];
        edit1.text := 'PONG :' + (copy(pong, 7, length(pong)));
        mainform.Form1.Refresh; // Refresh
        IdTCPClient1.sendcmd(edit1.text +#10);
      end;
  end;

dkn: Det jeg mente var, at med en streng kaldet ping, hvori serverens svar ligger (PING :50). Så ville jeg da mene at det letteste i dette tilfælde er bare at skifte tegn nr 2 ('I' => 'O'), hvorefter den samme streng sendes tilbage til serveren.

hehe ja, kunne være at han ville holde øje med ping tiderne. Men okay ellers en god ide :)