[magsim]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

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

Код:

1 2 3 4 5 6 7 8 9

<font color="Red">------------ei4ei4KM7ei4Ef1KM7KM7ae0cH2ae0 Content-Disposition: form-data; name="Filename"   DSC03262242.jpg ------------ei4ei4KM7ei4Ef1KM7KM7ae0cH2ae0 Content-Disposition: form-data; name="Filedata"; filename="DSC03262242.jpg" Content-Type: application/octet-stream</font>   <font color="Green">яШяа JFIF  , ,  ябµExif  II*           ћ        ѕ            Г ............  (это данные самого изображения)  </font>

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

[PhoeniX]

TIdMultipartFormDataStream

[magsim]

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

TIdMultipartFormDataStream

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

[PhoeniX]

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

[magsim]

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

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

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

[magsim]

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

Код:

1 2 3 4 5 6

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.