[Delphi/PHP] Form post met multipart/form-data

[tom kuipers]

Beste forumers,

Ik ben bezig met een activex component onder delphi om zeg maar zo'n foto-uploader te maken net als je hebt bij msn-communities. Nu ben ik bezig met het deel dat de bestanden upload naar de php pagina. Hij moet per file de foto & Omschrijving naar insertpic.php posten. Nu vond ik hier een mooi component voor van indy. Maar het werkt nog niet helemaal, zelfs de de demo ervoor niet.

code:

var
  ResponseStream: TMemoryStream;
  MultiPartFormDataStream: TMsMultiPartFormDataStream;
begin
  MultiPartFormDataStream := TMsMultiPartFormDataStream.Create;
  ResponseStream := TMemoryStream.Create;
  try
    IdHttp1.Request.ContentType := MultiPartFormDataStream.RequestContentType;
    MultiPartFormDataStream.AddFormField('PersonName', edtPersonName.Text);
    MultiPartFormDataStream.AddFormField('Description', edtDescription.Text);
    MultiPartFormDataStream.AddFile('upload', edtFile.Text, edtMIMEType.Text);
    { You must make sure you call this method *before* sending the stream }
    MultiPartFormDataStream.PrepareStreamForDispatch;
    MultiPartFormDataStream.Position := 0;
    ShowMessage(IdHTTP1.Post(edtHost.Text, MultiPartFormDataStream));
  finally
    MultiPartFormDataStream.Free;
    ResponseStream.Free;
  end;

Post ik het vanuit m'n browser, dan werkt het. DOe ik het met delphi code, werkt het NIET. Hier mijn php code:

code:

move_uploaded_file($upload, $TK_DOWNLOAD_DIR.$upload_name);

Als ik vanaf de browser post krijg ik dit in return als ik een print_r($HTTP_POST_FILES);

code:

Array
(
    [upload] => Array
      (
        [name] => 351010[1].gif
        [type] => image/gif
        [tmp_name] => E:\WINNT2\php281.tmp
        [size] => 7125
      )

)

en via delphi krijg ik dit:

code:

Array
(
    [upload] => Array
      (
        [name] => 351010[1].gif
        [type] => image/gif
      )

)

Heeft iemand enig idee waar dit aan kan liggen?

En nog iets, kan er gelijk wel bij, weet iemand hoe ik dan vanaf de html als ik het activex component aanroepen er een variable aan mee kan geven (voor het sessieid, zodat ik die mee kan posten?).

[Janoz]

Dat betekend dat de upload waarschijnlijk is mislukt. Aangezien er in de uploaded_file array geen verwijzing staat naar het tijdelijke bestand.

Mischien iets om naar te kijken... Waneer je een file upload moet er in het form ook altijd een filesize staan (oid, moet je ff op php.net kijken).. Mischien moet je die zelf nog ff toevoegen aan je geposte data.

[chris]

Misschien kan je wel iets met sockets doen, bij de torry suite zit wel zo'n component daarvoor. Je kan met php socket connecties ontvangen, dus.....

[chris]

Misschien dat je ook hier wat mee kan, er staan componenten tussen voor interactie tussen delphi en cgi, dan moet het met php ook vast wel kunnen.

Zaterdag nog naar De Kroeg trouwens?

[tom kuipers]

mmm... zal eens naar de componentjes kijken. Had al wel bij torry gekeken, maar met m'n stomme kop had ik niet gezien dat er meer was dan HTTP...

ik post mijn vorderingen nog even.

Mat dev-null... idd de kroeg zaterdag, maar uit je e-mail adres kan ik niet opmaken wie je bent. Wil dit mysterieus iemand ff z'n naam geven???