urldownloadtofile

[mr.unbekannt]

hi@all

cih habe ein kleines problem mit urldownloatofile. mein quelltext ist:

Delphi-Quellcode:

urldownloadtofile(nil,'http://www.billiger-surfen.de/tarifliste.php3?&abc=all','c:\windows\desktop\billiger\tarifliste.php3',0,nil);

die datei ist damm an ende nicht in diesem ordner. am liebsten wäre es mir aber, wenn ich es irgendwo einlesen könnte zum beispiel in ein memo feld um es in eine tabelle einzeln einzulesen. kann mir da jemand helfen?

also entweder direkt auf seite lesen (wäre besser) oder download. habe delphi 6 personal

[DP-Maintenance]

Dieses Thema wurde von "Luckie" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Internet / LAN / ASP.NET" verschoben.
Das gehört nicht in die Code-Lib.

[mr.unbekannt]

mag mir keiner antworten oder weiß keiner ne antwort?

[fred.reichbier]

vllcht hilft dir das:
http://dsdt.info/tipps/?id=159
und nach einer stunde pushen is net erlaubt ;)

[mr.unbekannt]

hört sich zwar net schlecht an nur ersten is es ne php und zweitens scheint es auch net zu funzen

[dahead]

wo genau liegt denn dein problem im code? poste doch mal die stelle hier.

du kannst auch hier nachsehen, dort gibt es einige varianten.

[mr.unbekannt]

habe jetzt mehrere varianten versucht erste variante:

Delphi-Quellcode:

 idhttp1.Get('http://www.billiger-surfen.de/tarifliste.php3?&abc=all',t1);
t1.Write(s,t1.Size);
memo1.Lines.Add(s);

zweite variante:

Delphi-Quellcode:

 urldownloadtofile(nil,'http://www.billiger-surfen.de/tarifliste.php3?&abc=all','c:\windows\desktop\billiger\tarifliste.php3',0,nil);
//memo1.Lines.Add(GetHTML('http://www.billiger-surfen.de/tarifliste.php3?&abc=all'));

und dritte variante:

Delphi-Quellcode:

 Function GetHTML(AUrl: string): string;
var  databuffer : array[0..4095] of char;
ResStr : string;
hSession, hfile: hInternet;
dwindex,dwcodelen,dwread,dwNumber: cardinal;
dwcode : array[1..20] of char;
res    : pchar;  Str    : pchar;
begin
ResStr:='';
Result:='';
if pos('http://',lowercase(AUrl))=0 then     AUrl:='http://'+AUrl;
hSession:=InternetOpen('InetURL:/1.0',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
If assigned(hSession) Then Try hfile:=InternetOpenUrl(hsession,pchar(AUrl),nil,0,INTERNET_FLAG_RELOAD,0);
if assigned(hfile) then Try  dwIndex  := 0;
dwCodeLen := 10;
HttpQueryInfo(hfile,HTTP_QUERY_STATUS_CODE,@dwcode,dwcodeLen,dwIndex);
res := pchar(@dwcode);
dwNumber := sizeof(databuffer)-1;
if (res ='200') or (res ='302') then begin while (InternetReadfile(hfile,@databuffer,dwNumber,DwRead)) AND (dwRead <>0) do begin
databuffer[dwread]:=#0;
Str := pchar(@databuffer);
resStr := resStr + Str;
Application.ProcessMessages;
end;
end else
ResStr := 'Status:'+res;
Finally
InternetCloseHandle(hfile);
End;
Finally
InternetCloseHandle(hsession);
End;
Result := ResStr;
end;

und 


memo1.Lines.Add(GetHTML('http://www.billiger-surfen.de/tarifliste.php3?&abc=all'));

alle 3 varianten funktionieren nicht, warum nicht?

[jakobwenzel]

Wenn du mit "funktioniert nicht" meinst, dass nur die HTML-Ausgabe kommt, ist das logisch, denn es wird eine normale HTTP-Verbindung aufgebaut, über die die HTML-Ausgabe läuft und nicht der Quellcode.

[mr.unbekannt]

naja ich will einfach den inhlat der php3 datei auslesen, mehr micht! nur wie?

[Jelly]

Zitat:

Zitat von mr.unbekannt

naja ich will einfach den inhlat der php3 datei auslesen, mehr micht! nur wie?

nicht über das http Protokoll, keine Chance. Sonst wärs ja ein Leichtes die PHP Quellcodes von x-beliebigen Seiten auszulesen. tsetse

Probiers mal mittels FTP, da klappts.