AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Auswerten eines Strings

Ein Thema von 388-dave · begonnen am 6. Nov 2009 · letzter Beitrag vom 6. Nov 2009
 
388-dave

Registriert seit: 3. Nov 2009
2 Beiträge
 
Delphi 2005 Personal
 
#1

Auswerten eines Strings

  Alt 6. Nov 2009, 12:26
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...
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz