PHP ? Upload ? Delpi ?

[devnull]

Hi,
ich möchte, dass ein Delphi-Programm eine Datei auf einen Server hochladen kann (nicht FTP).
Dazu habe ich ein PHP-Script auf dem Server, das durch einen Aufruf im HTML-Quelltext einen
Dateinamen übergibt...

Wie kann ich jetzt mit Delphi sowas machen (mit HTML bekomm ichs hin) ?


mfg
devnull

[fkerber]

Hi!

Dann ruf doch deine HTML-Seite auf, die das macht und dann bist du fertig.
Das dürfte der einfachste Weg sein, oder?

Ciao fkerber

[devnull]

Aber ich weis nicht, wie ich da mit Delphi den Dateipfad übergeben soll!

[fkerber]

Hi!

Bau dir doch deine HTML-Seite mit Delphi zusammen, speichere sie und rufe sie auf.

Gibt vielleicht (bestimmt) nen besseren Weg, aber den kenn ich nicht


Ciao fkerber

[devnull]

Kann man da nix mit der Indy-Unit "IdMultipartFormData" machen ???
Ich versteh nur den Aufruf der Proce AddFile(); nicht.

[SirThornberry]

mit idhttp.Post(URL, MultiPartFormDataStream) ist das kein Problem... Wo genau liegt dein Problem?

Mal noch bissl source..

Delphi-Quellcode:

var DataStream: TIdMultiPartFormDataStream;
    http2: TIdHttp;
begin
   http2 := TIdhttp.Create(Self);
   [...]
   DataStream := TIdMultiPartFormDataStream.Create;
   [...]
   DataStream.AddFile('image', picuploadname.Text, 'image/jpeg');
   http2.Post(url,DataStream);
   http2.Free;
   DataStream.Free;

[devnull]

Ja, das hab ich schon probiert:

Delphi-Quellcode:

var data : TIdMultiPartFormDataStream;
begin
  data := TIdMultiPartFormDataStream.Create;
  try
    data.AddFile('loadfile', 'c:\test.txt', 'file');
    Memo1.Lines.Text := IdHTTP1.Post(server_url+'/upload.php', data);
  finally
    data.Free;
  end;
end;

Da wird dann aber nach einer Weile in das Memo der Inhalt der upload.php geschrieben.
Die Datei selbst, aber nicht auf den Server geladen! Die Berechtigung ist jedoch ge-
geben.

[SirThornberry]

ich weiß nicht ob der Fehler in den Indys bereits behoben wurde. ID-Multipartformdata hatte under D6 noch einige Probleme. Mit Delphi7 Enterprise ging es allerdings ohne Probleme... Irgendwann hatten wir hier mal nen Thread darüber wo jemand dachte ich verarsch ihn weil er es immer wieder probiert hat und es bei ihm nicht geklappt hat, bei mir aber schon. Dann hab ichs auch mal mit delphi6 Personal probiert und es hat nicht geklappt... Am Ende des Thread hab ich dann gepostet was man an den Indies ändern muss damit es funktioniert (ohne Gewähr)

[SirThornberry]

Hab den Thread mal rausgesucht
http://www.delphipraxis.net/internal...ct.php?t=11441
auf der zweiten Seite ist die Lösung...

Kannst ja dann mal posten obs geklappt hat

[devnull]

Danke, ich hab die vorhandenen Units mit deinen überschrieben.
Diese sind etwas kleiner, aber dafür funktioniert nun der upload

mfg
devnull