versch. int an server senden

[the_seed]

hi, habe folgendes problem ich habe 4edit felder wo 4 versch. werte stehen (x,y,b,h) wie kann ich diese alle auf einmal an einen server senden?
zb.

4 werte -> server(wo sie dann ind reihen folge von x,y,b,h eingetragen werden sollen.)

[gekmihesg]

an was für einen server?

[Jens Schumann]

Hallo,
schau mal dort nach.TWinSocketStreamOb Du einen String oder Integers sendest ist eigentlich egal.

[the_seed]

an nen ganz normalen idtcp mit dem befehl writeln('lol');

[fkerber]

Hi!

Machs doch so:

writeln(Edit1.Text+'#'+Edit2.Text+'#'+Edit3.Text+'#'+Edit4.Text); und beim Server machst du anhand der # wieder einzelne Strings draus.


Ciao fkerber

[the_seed]

genau gute idee *lol*
mhh
so zb:


k:=aThread.Connection.Readln;
k1:=copy(k,1,#);
k2:=copy(k,#,?);
usw...

geht aber net ?????

[SirThornberry]

so sollte es gehen

Delphi-Quellcode:

function splitOutIndex(Source: String; Delimiter: String; Index: Integer): String;
var count, number: Integer;
    giveback: String;
begin
 count := 1;
 number := 0;
 giveback := '';
 while count <= length(Source) do
 begin
  if copy(Source, count, length(Delimiter)) = Delimiter then
  begin
   number := number + 1;
   count := count + length(Delimiter);
  end else begin
   if number = Index then giveback := giveback + Source[count];
   count := count + 1;
  end;
 end;
 result := giveback;
end;

[...]
begin
  k:=aThread.Connection.Readln; 
  k1 := splitOutIndex(k, '#', 0);
  k2 := splitOutIndex(k, '#', 1);
  k3 := splitOutIndex(k, '#', 2);
end;

[the_seed]

geht das nicht einfacher ? da versteh ich ja nur die hälfte von der source, da kann ich ja gleich jeden wert einzeln senden und einsetzen.

[fkerber]

Hi!

Dann frag doch, was dir unklar ist.


Ciao fkerber

[the_seed]

function splitOutIndex(Source: String; Delimiter: String; Index: Integer): String;
var count, number: Integer;
giveback: String;
begin
count := 1;
number := 0;
giveback := '';
while count <= length(Source) do \\???
begin
if copy(Source, count, length(Delimiter)) = Delimiter then
begin
number := number + 1;
count := count + length(Delimiter);
end else begin
if number = Index then giveback := giveback + Source[count]; \\???
count := count + 1;
end;
end;
result := giveback;
end;

[...]
begin
k:=aThread.Connection.Readln;
k1 := splitOutIndex(k, '#', 0); \\für was steht das splitoutindex ???
k2 := splitOutIndex(k, '#', 1);
k3 := splitOutIndex(k, '#', 2);
end; #




die og. dinge versteh ich net, wenn ich ne function od. procedure reinnehm kommt immer irgend ne fehler meldung.
-------------------------------------------------
zb.

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var m:string;
kg:pansichar;
begin

m:=m := aThread.Connection.Readln;
kg:=pansichar(mg);

if u='a' then application.messagebox( kg,'Information',49)
else

if u='b' then application.messagebox( kg,'Frage',36)
else

if u='c' then application.messagebox( kg,'Warnung',48)
else
...
wie geht das das ich in den ablauf ne function od. procedure reinbau ?