Minimalistisch 20 Zeichen auf Webseite hochladen geht nicht

[Byteworm]

Hallo liebe Experten!

Ich will minimalistisch 20 Zeichen hochladen und habe folgendes Codeschnipsel dafür gefunden:

Delphi-Quellcode:

procedure HTTPUpload( Url:String; Data: string);
var create, file_Url_handle    : Phandle;
    Data_written               : cardinal;
    i                          : integer;
    OK                         : Boolean;
    buffer                     : array[0..256] of char;
begin
  create := InternetOpen('Mozilla/4.0 (compatible)', INTERNET_OPEN_TYPE_PRECONFIG , NIL, NIL, 0);
  file_Url_handle:=InternetOpenUrl(create, pchar(Url), NiL, 0, INTERNET_FLAG_RAW_DATA, 0);
  if file_Url_handle<>nil then begin
    FillChar(buffer,sizeof(buffer),#0);
    For i:=1 to length(Data) do Buffer[i-1]:=Data[i];
    OK:=InternetWriteFile( file_Url_handle, addr(buffer), sizeof(buffer), Data_Written);
  end
  else begin
    MessageBox(0,'Could Not Resolve Host!','Error',0);
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  HTTPUpload( 'http://microsoft.com/feedback/feedback.txt', 'HastalaVISTA Baby!');
end;

Nun, warum schreibe ich diesen Beitrag? Es geht net :stupid:
Keine Fehlermeldung, "Data_Written" = 0. Alle Rechte im Uploadordner freigeschaltet (777).

Hat jemand der Experten hier im Forum einen hilfreichen Tip?
Es gibt zwar andere Codeschnipsel, aber so wie ich es verstanden habe, wird bei dieser Implementierung ein eventueller Proxy durch "INTERNET_OPEN_TYPE_PRECONFIG" ebenfalls berücksichtigt bzw. genutzt.

Wäre für einen Tip sehr dankbar!

Beste Grüße,
Der Byteworm

PIV/2500, Wxp SP3, D7Ent, Brille

[jfheins]

Dateien übers HTTP-Protokoll hochladen?

Ich vermute mal, das ein PUT-Request generiert wird - es könnte sein, dass dieser vom Webserver nicht unterstütz wird.

Welcher Server läuft denn?

[Byteworm]

Oops - da muss ich erst mal gucken, was mein Hoster da verwendet ...

[Byteworm]

So, folgende Info habe ich auf die Schnelle gefunden:

"Als Betriebssystem wird Linux Gentoo mit einer Apache-Webserver-Konfiguration genutzt."

Ist also ein Apache Server. HTTP-Upload müsste aber eigentlich geht, da es auch ein Web-FTP gibt. Und so einen WebFTP setzt man ja ein, wenn ein FTP-Connect z.B. durch eine Firewall nicht möglich ist (z.B. in diversen Firmennetzen).

Beste Grüße,
Byteworm

[jfheins]

Beim Web-FTP wird aber wahrscheinlich eine Serverseitige (PHP/asp.net/RoR/sontswas) Anwendung laufen und ein Webformular anbieten, um Dateien hochzuladen.

In diesem Fall wird die Datei per POST an die Anwendung geschickt, und dann von der Anwendung verarbeitet und bspw. auf dem Server gespeichert.

Da du aber nichts gesagt hast à la "Ich habe ein PHP Script auf dem Server und versuche, über das Script eine Datei hochzulasen" sondern mehr sowas wie "Ich will dem Server ne Datei geben, der wird schon irgendwie wissen, was damit zu tun ist" habe ich halt mal PUT vermutet.

Btw.: PUT kann eine gewaltige Sicherheitlücke sein. Falsch konfiguriert kann ein Angreifer beliebigen Code auf dem Server ausführen :!:

Achja ... Apache muss man wohl extra dafür konfigurieren, dass er sowas macht. Soll heißen: Es ist möglich, aber man muss Zusatzmodule benutzen, die sagen was mit der Datei passieren soll.

[Byteworm]

Jo - klingt einleuchtend. D.h. der o.a. Code benötigt also noch ein "PHP-Gegenstück" auf der Server. Merkwürdig nur, dass beim "googeln" darüber nix zu finden ist :(

Eigentlich ist der Code schön einfach und berücksichtigt sogar einen ev. Proxy. Ich habe nämlich kein Lust, einen Mammut wie die Indy-Componente einzubinden ...

[Byteworm]

Ich hab ne Lösung:

In diese Quelltextzeile ...

Delphi-Quellcode:

create := InternetOpen('Mozilla/4.0 (compatible)', INTERNET_OPEN_TYPE_PRECONFIG , NIL, NIL, 0);

... trage ich statt 'Mozilla/4.0 (compatible)' meine Daten ein, und die gewünschte Info erscheint im Report meines Webhosters :cheers:

Manchmal sind Lösungen ganz einfach - man muss nur scharf hinsehen :coder:

Beste Grüße,
Uwe

[mjustin]

Zitat:

Zitat von Byteworm

Eigentlich ist der Code schön einfach und berücksichtigt sogar einen ev. Proxy. Ich habe nämlich kein Lust, einen Mammut wie die Indy-Componente einzubinden ...

Ararat Synapse wäre eine leichtgewichtige Alternative zu Indy (vergleichsweise ein Mammut-Baby). Ist bisher recht stabil und bei der Performance den Indy Komponenten durchaus vergleichbar.

Cheers,

[jfheins]

Von hinten durch die Brust ins Auge :mrgreen:

Aber wenns geht bitteschön ;)