Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Session auslesen aus php seite (https://www.delphipraxis.net/22367-session-auslesen-aus-php-seite.html)

LySerc 16. Mai 2004 19:31


Session auslesen aus php seite
 
Hallo,

fuer php wuerde das so aussehen: $_SESSION + ($u)

aber wie fuer delphi?


hiermit: WB1.OleObject.Document.Body.InnerHtml;
Lese ich das aus :
<FRAME name=v src="n/navbar.php?u=lugHQ9Zwgj&amp;p1=61x85x5&amp;c=61x85 x5" noResize><FRAME name=w src="uebersicht.php?u=lugHQ9Zwgj" noResize>

ich braue diesen string: ....uebersicht.php?u=lugHQ9Zwgj... in einer variable zb. s

mfg. lyserc

toms 16. Mai 2004 19:55

Re: Session auslesen aus php seite
 
Hi!

Du könntest alle Frames in einer Schleife durchgehen und deren Name Eigenschaft auslesen.
Dann musst du nur noch aus uebersicht.php?u=lugHQ9Zwgj die Session auslesen.

LySerc 16. Mai 2004 20:07

Re: Session auslesen aus php seite
 
:shock: nix verstehen gg

uebersicht.php?u=lugHQ9Zwgj <---ich brauche von dem nur: lugHQ9Zwgj das, da sich das jedes mal ändert.

toms 16. Mai 2004 20:08

Re: Session auslesen aus php seite
 
Schau dir mal die Funktionen

Copy()
Pos()
Delete()
StringReplace()

in der Delphi Hilfe an. Diese wirst du immer wieder brauchen werden.

LySerc 16. Mai 2004 20:36

Re: Session auslesen aus php seite
 
HABS FAST :P


procedure TForm1.Button2Click(Sender: TObject);
var
session,s: string;
i: Integer;
begin
session:=WB1.OleObject.Document.Body.InnerHtml;
i := Pos('uebersicht.php?u=', session);
s := Copy(session, i + 17, Length(session) - i +7);
Memo1.Text := (s);

er soll jetzt aber von hinten gesehen 10 stellen ab "schneiden"

toms 16. Mai 2004 20:42

Re: Session auslesen aus php seite
 
Delphi-Quellcode:
s := Copy(session, i + 17, 10);

LySerc 16. Mai 2004 20:55

Re: Session auslesen aus php seite
 
THX! :dancer:


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:46 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-2025 by Thomas Breitkreuz