Einzelnen Beitrag anzeigen

Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#9

Re: PHP Datei benützen um Text per Mail zu versenden

  Alt 30. Aug 2009, 16:59
Vielen Dank an SirThornberry, der meinen Beitrag im alten Thread direkt gelöscht hat, obwohl ich diesen, direkt nachdem ich ihn abgeschickt hatte, gemeldet hatte, mit der Bitte, ihn zu verschieben (nein, es gab keinen roten Kasten) Zum Glück war er noch im Cache
Zitat von Namenlozer:
Zitat von Larsi:
Wie dann?
Mit POST:
Delphi-Quellcode:
procedure UploadFile(URL, FileName: string);
var
  FormData: TIdMultiPartFormDataStream;
  HTTP: TIdHTTP;
begin
  FormData := TIdMultiPartFormDataStream.Create;
  HTTP := TIdHTTP.Create;
  try
    FormData.AddFormField('FileName',ExtractFilename(FileName));
    FormData.AddFile('Content',FileName, '');
// FormData.Position := 0; Bin mir gard nicht sicher, ob das nötig ist
    HTTP.Request.ContentType := FormData.RequestContentType;
    HTTP.post(URL,FormData)
  finally
    HTTP.Free;
    FormData.Free;
  end;
end;
  Mit Zitat antworten Zitat