Werte an geklickten Links im Browser anhängen

[marabu]

Hallo,

der Stack-Überlauf entsteht, weil du weder die laufende Navigation beendest, noch ein Exit-Kriterium für die Beendung des rekursiven Aufrufs deines event handlers festlegst. Schau dir den Code von API nochmal genau daraufhin an.

Freundliche Grüße

[ptown67]

leider ist es immer noch so, dass nur die internen button den wert wiedergeben...

ich habe mal dazu ein test-projekt zusammengestellt:

[Xong]

Zitat:

Zitat von API

Sein Problem hat doch nichts mit dem "User-Agent" zu tun?!?

So wie er es angeht nicht!
Deswegen habe ich ja auch gemeint, dass er es falsch angeht.

[API]

Ich denke es hat ein "/" zu viel in der URL

Delphi-Quellcode:

 Browser.Navigate(URL); // ---> [url]http://wap.se-world.info/?view=pt[/url]

[API]

mach's mal so:

Delphi-Quellcode:

   Cancel := True;
   if Copy(URL,Length(URL),1) = '/' then
     URL := Copy(URL, 1, Length(URL)-1);
   URL := URL + ANSICHT;
   Browser.Navigate(URL);

[Xong]

Zitat:

Zitat von API

Ich denke es hat ein "/" zu viel in der URL

Delphi-Quellcode:

 Browser.Navigate(URL); // ---> [url]http://wap.se-world.info/?view=pt[/url]

Ich will mich ja nicht mit dir streiten :stupid: , aber: Wo denn?

[API]

info/?

[Xong]

Zitat:

Zitat von API

info/?

Ist aber ein korrekter URI. =)

[ptown67]

Nochmals danke API!

Hat zwar leider immer noch nicht geklappt, denn es gab wieder den 'Stack-Überlauf' aus.

Ich werd mir jetzt mal ein Label dazu erstellen, dass nach einem klick immer URL anzeigen lassen, damit ich den Fehler leichter finden kann. Leider bin ich nur Anfänger im Bereich Delphi...

Aber ich bin mir sicher, dass ich eine Lösung finde. Muss heut abend mal mit dem Admin reden...

-----------------------------------------------------------------------------

Zitat:

Ich finde, du gehst das Problem von der falschen Seite an.
Normalerweise schickt ein Browser seine Kennung im "User-Agent"-Header.

Auf diesen sollte die Internetseite reagieren.

Das haben wir schon versucht. Ich müsste den kompletten String ändern können.

[ptown67]

super, ich habe es zu teil hinbekommen!

Delphi-Quellcode:

procedure TForm1.BrowserBeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
CONST
  ANSICHT = '?view=pt';
begin
if pos(ANSICHT, URL) = 0 then
  begin
    Cancel := True;
    URL := URL + ANSICHT;
    Label1.Caption:=URL;
    Browser.Navigate(URL);
  end;
end;

jedoch gibt es ja auch links im forum, wie z.b. diesen hier:
http://wap.se-world.info/board.php?boardid=114

da steht bereits ein wert der nach dem '?' kommt. in dem fall muss ich dafür dann ein '&view=pt' anhängen statt '?view=pt'.

jetzt muss ich nur noch herausfinden, wie ich es anstelle, dass wenn ein ? erkannt wird, dass er dann '&view=pt' statt '?view=pt' einsetzt.

aber fürs erste bin ich schon mal erleichtert.