[magsim]

Всем доброе время суток!
Подскажите пожалуйста как используя компонент IdHttpServer
получить:
1. Переменные POST
2. Файлы переданные в POST
В данный момент пробовал следующий код:

Код:

procedure TForm1.serverCommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
 str,str_fil:string;
 fil:string;
 ext:string;
 PostedFile:TMemoryStream;
 text:string;
 tsr : tsearchrec;
 foto_list:string;
begin
  str := StringReplace(arequestinfo.document,'/','\',[rfReplaceAll]);
  Delete(str,1,1);
  str_fil := ExtractFileName(str);
  fil := patch+'server\'+str;
  ext := ExtractFileExt(str_fil);
  if(str_fil  = 'upload.php')then
   begin
     PostedFile:=TMemoryStream.Create;
     PostedFile.LoadFromStream(ARequestInfo.PostStream);
     PostedFile.SaveToFile(patch+'server\script\user\0\'+UTF8Decode(ARequestInfo.Params.Values['namesendfile']));
      PostedFile.SaveToFile(patch+'server\script\user\0\m\m_'+UTF8Decode(ARequestInfo.Params.Values['namesendfile']));
     AResponseInfo.WriteContent;
     AddLog('Файл загружен: '+UTF8Decode(ARequestInfo.Params.Values['namesendfile']));

     PostedFile.Free;
     ARequestInfo.PostStream.Free;
     exit;
   end;

Файл приходит и записывается в папку, но файл имеет лишению информация которая была отправленная вместе с файлом в POST

Код:

------------ei4ei4KM7ei4Ef1KM7KM7ae0cH2ae0
Content-Disposition: form-data; name="Filename"

DSC03262242.jpg
------------ei4ei4KM7ei4Ef1KM7KM7ae0cH2ae0
Content-Disposition: form-data; name="Filedata"; filename="DSC03262242.jpg"
Content-Type: application/octet-stream

яШяа JFIF 


,
,  ябµExif  II*     
     ћ   
    ѕ   
 	   Г ............  (это данные самого изображения)
 

Вопрос^
1. как принять только файл?
2. Как принять переменные переданные в POST ?

[PhoeniX]

TIdMultipartFormDataStream

[magsim]

Сообщение от PhoeniX

TIdMultipartFormDataStream

Может есть небольшой пример или наброосок ?

[PhoeniX]

У меня под рукой нету (не пишу на Delphi уже полгода), но гугл всемогущий тебе поможет

[magsim]

Сообщение от PhoeniX

У меня под рукой нету (не пишу на Delphi уже полгода), но гугл всемогущий тебе поможет

Насколько я выяснил tidmultipartformdatastream ,может только собирать данные для дальнейшей отправки например компонентном idHTTP.
А мне нужно наоборот разобрать данные PostStream.
А вот чем не знаю.

[magsim]

Как читать сами переменные POST я разобрался.
Но файлами остлся вопрос, подскажите пожалуйста как допустим читать полученные данные с определенного места?

Код:

Content-Disposition: form-data; name="Filename"
 
DSC03262242.jpg
------------ei4ei4KM7ei4Ef1KM7KM7ae0cH2ae0
Content-Disposition: form-data; name="Filedata"; filename="DSC03262242.jpg"
Content-Type: application/octet-stream

Так что бы можно было отрезать заголовок application/octet-stream тут он оканчивается, и произвести запись без него ?

[PhoeniX]

http://stackoverflow.com/questions/1...formdatastream

... the AResponseInfo.PostStream property will contain the raw MIME data that the client posted. You can use the TIdMessageDecoderMIME class to parse it.