Auswerten eines Strings

[388-dave]

Hallo erstmal...
Folgendes Problem ich bin grad dabei ein kleines Login Programm zu schreiben wo das Programm erst Username und Passwort an einen Server sendet dieser diese entweder bestätigt oder ablehnt...
Der Client muss sich alle 10 min wieder authentifiezieren sonst schliesst sich das programm er sendet deshalb 2 verschiedene Strings einmal:
'1'+Username+';'+Password << beim erstenmal
'2'+Username+';'+Password << sonst
nun soll der server den string auswerten vom 2ten buchstaben bis zum ; username rest password und das kriege ich nich hin-.-
hier mein ansatz wo ich als ergebniss nur die ersten 2 Buchstaben kriege:

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
s:String;
User:String;
Password:String;
Text:String;
i:Integer;
j:Integer;
k:Integer;
endstr:Integer;
Beginstr:Integer;
  begin
    k:=0;
    j:=0;
    s:=Socket.ReceiveText;
    if s<>''
      then begin
        for i:=1 to length(s) do begin
          if s[1] = '1'
            then begin
              if s[i] = ';'
                then begin inc(j);
            end
          else
            if s[1] = '2'
              then begin
                if s[i] = ';'
                  then inc(k);
              end



        end;
        if j =1 then endstr:=j;
        if k =1 then endstr:=k;
        beginstr:=0;
        s:=copy(s,beginstr,endstr-beginstr+1);
        Label2.Caption:=s;
        Socket.SendText(Text);
        Label3.Caption:=Text;


    end;
  end;
end;

Naja wahrscheinlich nich nur falsch sondern auch sehr umständlich aber ich bräucht n bissl hilfe komm seit 2 tagen nich weiter...

Danke schonmal für jede form der hilfe...

[sirius]

suche mal nach den Funktionen Pos und PosEx, und vielleicht auch noch nach Delete.

[Forlan]

Sehe ich das einfach nur nicht, oder wurde "Text" garnicht initialisiert?

[Neutral General]

Hi,

Ansatz:

:arrow: 1. Zeichen ist die Art des Logins
:arrow: 2. Zeichen bis zum Semikolon ist der Username (copy, pos)
:arrow: Alles bis inklusive dem Semikolon löschen (delete)
:arrow: Das was jetzt noch übrig ist, ist das Passwort

[p80286]

hallo 388dave,

auch wenn schon alles gesagt wurde:

Delphi-Quellcode:

if s<>'' 
      then begin 
        for i:=1 to length(s) do begin 
          if s[1] = '1' 
            then begin 
              if s[i] = ';' 
                then begin inc(j); 
            end 
          else 
            if s[1] = '2' 
              then begin 
                if s[i] = ';' 
                  then inc(k); 
              end 



        end; 
        if j =1 then endstr:=j; 
        if k =1 then endstr:=k; 
        beginstr:=0; 
        s:=copy(s,beginstr,endstr-beginstr+1); 
        Label2.Caption:=s; 
        Socket.SendText(Text); 
        Label3.Caption:=Text;

Delphi-Quellcode:

  if s[1] = '1' then j:=pos(';',s);
  if s[1] = '2' then k:=pos(';',s);

Hierbei wird das erste Auftreten von ";" übernommen, Bei Deiner Vorgehensweise das letzte! Wenn so gewollt, dann OK aber dann würde ich eine Dekrement bevorzugen.

Delphi-Quellcode:

   beginstr:=0; 
   s:=copy(s,beginstr,endstr-beginstr+1);

das geht brutalst in die Hose, da Stringdaten erst ab dem Index 1 zur verfügung stehen. Nur die shortstrings haben an der Position 0 Daten (ihre Länge) und diese Information willst Du ja nicht haben.
Achja beinahe übersehen, wo kommt eigentlich der Wert von "endstr" her ? (Wenn k oder j mal nicht=1 sind?)

Und in Text

Delphi-Quellcode:

  Socket.SendText(Text); 
  Label3.Caption:=Text;

steht hier alles mögliche (wahrscheinlich nichts), da "Text" kein Wert zugewiesen wurde.
Ausserdem ist "Text" nicht gerade glücklich, "MeinText" ist zwar auch nicht viel schöner, birgt aber eine geringere Verwechslungsgefahr (zum Glück gibt's kein TForm.Text).

Gruß
K-H

[Muetze1]

ReceiveText() gibt dir immer nur den aktuell empfangenen Teil zurück. Dies kann deutlich weniger sein als du mit SendText() abgeschickt hast. Eine falsche Annahme vieler ist es zu glauben das die Strings genauso aufgeteilt wieder bei ReceiveText ankommen. Dies ist ein Trugschluß!

[388-dave]

ok vielen dank für die vielen antworten ich setz mich gleich ma wieder dran...
ja text ist im moment nicht definiert weil ich erstmal das auswerten des strings fertig stellen wollte danach wird nur noch text im ersten erfolgsfall als ok definiert im zweiten als ok1 in jeden anderen als haha oder so das is ja wayne im folgenden werd ich versuchen das noch zu verschlüsseln und zwar dynamisch damit das ganze nicht so leicht mit abfangen und neusenden der pakete umgangen werden kann naja bis dahin brauch ich aber noch etwas und wahrscheinlich werd ich mich dann nochmal melden :oops:
aber super un schnelle hilfe hier dankeeeeeeeeee