Кодировка idmultipartformdatastream в Delphi 2009

[Viteef]

var ...
multi: Tidmultipartformdatastream; 
...
multi.AddFormField('fullname', fullname);

файлик закачивается, все нормально работает, проблемы только в том то из fullname выпадает кириллица... из Slovo_Слово_Slovo остается Slovo__Slovo

Отправка идет на страницу с кодировкой windows-1251

[Квэнди]

Попробуй сделать так:

uses IdIOHandler,idglobal;

procedure form1.oncreate (sender:Tobject);
begin
if not(Assigned(idhttp1.IOHandler)) then
  begin
    idhttp1.IOHandler:=TIdIOHandler.MakeDefaultIOHandler(idhttp1);
    idhttp1.IOHandler.DefStringEncoding:=en8Bit;
  end;
end;

Смысл в том, чтобы при создании формы создать для IdHTTP IOHandler по- умолчанию и выставить ему кодировку UTF8. Ибо изначально используется ASCII.

procedure TIdIOHandler.InitComponent;
begin
  inherited InitComponent;
  FRecvBufferSize := GRecvBufferSizeDefault;
  FSendBufferSize := GSendBufferSizeDefault;
  FMaxLineLength := IdMaxLineLengthDefault;
  FMaxCapturedLines := Id_IOHandler_MaxCapturedLines;
  FLargeStream := False;
  FReadTimeOut := IdTimeoutDefault;
  FInputBuffer := TIdBuffer.Create(BufferRemoveNotify);
  FDefStringEncoding := TIdTextEncoding.ASCII;
end;

[Viteef]

Не помогло. У меня так

procedure TIdIOHandler.InitComponent;
begin
  inherited InitComponent;
  FRecvBufferSize := GRecvBufferSizeDefault;
  FSendBufferSize := GSendBufferSizeDefault;
  FMaxLineLength := IdMaxLineLengthDefault;
  FMaxCapturedLines := Id_IOHandler_MaxCapturedLines;
  FLargeStream := False;
  FReadTimeOut := IdTimeoutDefault;
  FInputBuffer := TIdBuffer.Create(BufferRemoveNotify);
  DefStringEncoding := Id_IOHandler_DefEncoding;
end;

Indy 10, но не с последними обновлениями.

[Квэнди]

https://forums.codegear.com/thread.j...6821&tstart=15

[Viteef]

Смотрел на этот пример

var
  s: UTFString;
  strm: TMemoryStream;
begin
  s := Edit1.Text;
  strm := TMemoryStream.Create;
  try
    if s <> '' then strm.Write(s[1], Length(s));
    data.AddObject('name', 'text/plain; charset=utf-8', strm);
    ...
    IdHTTP1.Post(..., data);
  finally
    strm.Free;
  end;
end;

Во-первх D выдала Undeclared identifier: 'UtfString'

если делать так

procedure StreamWriteStr(var ms: TMemoryStream; s: string);
begin
  ms.Write(s[1], Length(s));
end;

procedure StreamWriteLn(var ms: TMemoryStream; s: string);
begin
  StreamWriteStr(ms, s + #13#10);
end;

...
...

    StreamWriteLn(strm, 'method=post');
    StreamWriteLn(strm, 'email='+email);
    StreamWriteLn(strm, 'fullname='+fullname);
    StreamWriteLn(strm, 'land='+land);
    StreamWriteLn(strm, 'icq='+icq);
    StreamWriteLn(strm, 'altpass='+login_pass);
    StreamWriteLn(strm, 'password1='+new_pass);
    StreamWriteLn(strm, 'password2='+new_pass);
    StreamWriteLn(strm, 'allowed_ip='+ip);
    StreamWriteLn(strm, 'info=');
    StreamWriteLn(strm, 'signature='+signature);
    StreamWriteLn(strm, 'submit');
    StreamWriteLn(strm, 'submit=submit');
    StreamWriteLn(strm, 'doaction=adduserinfo');
    StreamWriteLn(strm, 'dle_allow_hash='+GetHash('http://'+url+'/user/'+login));

multi.AddObject('name', 'text/plain; charset=utf-8', strm);
...

то отправляется вот что



Параметры через букву разделенные ||. Помойму неправильно в стрим записываю.

[Terran]

Во-первх D выдала Undeclared identifier: 'UtfString'

Если я не ошибаюсь, то чтобы не было этой ошибки нужно объявить тип.

Type
UTFString = Type String;

[Квэнди]

Viteef, если не решил, скинь проект, попробую посомтреть

[Viteef]

Пароль от архива в репу написал. Спасибо

[Квэнди]

Чот у тебя там совсем мясо, можешь сделать просто небольшой примерчико только с мультипартом ? а то я пока разберусь где что нужно разкомментить, кучу новых багов всплывет )

[Viteef]

да, можно