Ich versuche nun auf anraten von OregonGhost mit der WinInet Geschichte den Source einer Webseite zu bekommen, mein Problem ist aber, dass ich keine Ahnung habe, wie ich wenn redirected wurde die neue
URL herausbekommen soll.
Bisher habe ich mit InternetSetStatusCallback herumprobiert, bin aber nicht wirklich weitergekommen.
Mein bisheriger Ansatz sieht so aus:
Delphi-Quellcode:
...
hInetHandle := InternetOpen('Mozilla/4.0 (compatible; MSIE 5.0; Windows 98)', Internet_Open_Type_PreConfig, nil, nil, 0);
if hInetHandle <> nil then
begin
InternetSetStatusCallback(hInetHandle, @CallMaster); // Fehler "Variable erforderlich"
if InternetOpenUrl(hInetHandle, PChar(EditUrl.Text), nil, 0, INTERNET_FLAG_NO_CACHE_WRITE + INTERNET_FLAG_NO_UI, Integer(@CallMaster)) <> nil then // Fehler "Variable erforderlich"
begin
...
procedure TFormMain.CallMaster(hInternet: HINTERNET; dwContext: Pointer; dwInternetStatus: DWORD; lpvStatusInformation: Pointer; dwStatusInformationLength: DWORD);
begin
// Code zur Behandlung von INTERNET_STATUS_REDIRECT.. coming soon ;)
end;
[edit=nTE]Fehlerbeschreibung hinzugefügt und Code erweitert[/edit]