IdMultipartFormDataStream

[greenisius]

Привет всем.

Нужно отправить на сервер запрос multipart/form-data такого вида:

--Asrf456BGe4h
Content-Disposition: form-data; name="DestAddress"
(пустая строка)
brutal-vasya@example.com
--Asrf456BGe4h

brutal-vasya@example.com - это у нас строка такая. Как сделать Boundery я разобрался, поле с именем тоже создал. В инете куча материала, как отправлять файл через multipart/form-data, но как мне в качестве объекта использовать обычную строку, я не нашел. Подскажите, пожалуйста

[Alex11223]

В инете куча материала, но как мне в качестве объекта использовать обычную строку, я не нашел

А необычную как?

[greenisius]

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

А необычную как?

http://users.atw.hu/delphicikk/lista...id=37&oldal=54

procedure TForm1.SendPostData;
const
  CRLF = #13#10;
var
  aStream: TMemoryStream;
  Params: TMemoryStream;
  S: string;
begin
  aStream := TMemoryStream.create;
  Params := TMemoryStream.Create;

  HTTP.Request.ContentType := 'multipart/form-data;
    boundary = - - - - - - - - - - - - - - - - - - - - - - - - - - - - -7
      cf87224d2020a';

  try
    S := '-----------------------------7cf87224d2020a' + CRLF +
      'Content-Disposition: form-data; name="file1"; filename="c:abc.txt"' +
      CRLF +
      'Content-Type: text/plain' + CRLF + CRLF +
      'file one content. Contant-Type can be application/octet-stream or if
    you want you can ask your OS fot the exact type
    .' + CRLF +
      '-----------------------------7cf87224d2020a' + CRLF +
      'Content-Disposition: form-data; name="sys_return_url2"' + CRLF + CRLF +
      'hello2' + CRLF +
      '-----------------------------7cf87224d2020a--';

    Params.Write(S[1], Length(S));

    with HTTP do
    begin
      try
        HTTP.Post('http://www.mydomain.com/postexampe.cgi', Params,
          aStream);
      except
        on E: Exception do
          showmessage('Error encountered during POST: ' + E.Message);
      end;
    end;
    aStream.WriteBuffer(#0' ', 1);
    showmessage(PChar(aStream.Memory));
  except
  end;
end;

Вот так. Но результат выходит хреновый.




После каждого символа пробел.

[Alex11223]

Что именно не так?

[greenisius]

Я загоняю вручную в MemoryStream строку согласно формату, перевод строки как #13#10, получается такое вот.

[Alex11223]

Какие версии Дельфи и Indy? Скорее всего тот код был написан для старых Дельфи, где String=AnsiString, а у вас 2009 или выше, где String=WideString (юникод / utf-16)

[Пепел Феникса]

поменяйте тип S на AnsiString.