Thema: Delphi Indy Datei upload

Einzelnen Beitrag anzeigen

Kidix

Registriert seit: 14. Jan 2005
315 Beiträge
 
Delphi 4 Standard
 
#1

Indy Datei upload

  Alt 16. Jan 2006, 17:57
Hallo,

bei den Indy Demos habe ich folgenden codeschnippsel für den Upload einer Datei gefunden:

Delphi-Quellcode:
begin
          Response := TStringStream.Create('');
          try
            if not bPostFile then
              HTTP.Post(cbURL.Text, mePostData.Lines, Response)
            else
            begin
              Source := TMemoryStream.Create;
              try
                Source.LoadFromFile(edPostFile.Text);
                HTTP.Post(cbURL.Text, Source, Response);
              finally
                Source.Free;
              end;
            end;
            memoHTML.Lines.Text := Response.DataString;
          finally
            Response.Free;
          end;
        end;
    end;
  finally
    Screen.Cursor := crDefault;
    btnStop.Enabled := False;
    btnGo.Enabled := True;
  end;
alles schön und gut, doch ich muss doch bei php eine namenszuweisung für ne datei haben...mit welchem Namen wird die Datei aber an das Script gesendet?

Hier mal der PHP Code

Code:
$uploaddir = 'files/';
$uploadfile = $uploaddir. $_FILES['archive']['name'];

print "<pre>";
if (move_uploaded_file($_FILES['archive']['tmp_name'], $uploadfile)) { 
    print "File is valid, and was successfully uploaded. ";
    print "Here's some more debugging info:\n";
    print_r($_FILES);
} else { 
    print "Possible file upload attack!  Here's some debugging info:\n";
    print_r($_FILES);
}


$_FILES['archive']['name'] ist ja die namenszuweisung also archive...diese kann ich aber bei delphi nicht übergeben...oder gibts da nen standard für?
  Mit Zitat antworten Zitat