Delphi 2010 и Кодировка

[cargo29]

Много было программ написах на делфи 2010, и всегда возникала проблема с кодировкой, при передаче какой нить текстовой информации сайту либо еще куда нить, передача напрямую или из TSTRINGLIST как можно будет изменять кодировку? как и на прямую так и в TSTRINGLIST пожалуйста дайте разные способы? функции не предлогать
utf8toansii
ansitoutf8

[ZuBy]

может это поможет?

var
 enc: TEncoding;
begin
  stringlist.LoadFromFile('file.txt', enc.utf8);
  stringlist.SaveToFile('file.txt', enc.utf8);
end;

p.s. писал на форуме, возможно ошибся

[GunSmoker]

А может пора заканчивать с программированием методом тыка, а начать разбираться в том, что пишем?

Это я к тому, чтобы мат-часть почитать.

[cargo29]

уже лично сколько тем создавал такиз ни кто не смог ответить даже опытные.....

[GunSmoker]

Какой вопрос - такой и ответ.

[cargo29]

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

может это поможет?

var
 enc: TEncoding;
begin
  stringlist.LoadFromFile('file.txt', enc.utf8);
  stringlist.SaveToFile('file.txt', enc.utf8);
end;

p.s. писал на форуме, возможно ошибся

немного не правильно вырозился не и файла надо а например из поля мемо

[ZuBy]

Попробуй вот так

uses 
  .., WideStrUtils;

function AnsiToUtf8Ex(const S: AnsiString; const cp : integer): UTF8String;

[cargo29]

Правильно???

procedure TForm1.Button2Click(Sender: TObject);
var
sl:TStringList; a:String; ans:AnsiString; us:UTF8String;
begin
ans:=memo1.Lines.Text;
us:=AnsiToUtf8Ex(ans,CP_UTF8);
a:=Copy(Memo2.Text, Pos('<INPUT type="hidden" name="formSid" value="', Memo2.Text)+length('<INPUT type="hidden" name="formSid" value="'), Pos('<INPUT type="hidden" name="formS"',Memo2.Text)-Pos('<INPUT type="hidden" name="formSid" value="',Memo2.Text)-length('<INPUT type="hidden" name="formSid" value="')-5);
sl:=TStringList.Create();
sl.Add('tebo=h');
sl.Add('action=ins');
sl.Add('mode=insSms');
sl.Add('delay_time=""');
sl.Add('phone_number='+nomer.Text);
sl.Add('formSid='+a);
sl.Add('formS=www1');
sl.Add('phone_post_number='+nomer.text);
sl.Add('message_text='+us);
sl.Add('confirm_code='+capcha.Text);
Memo3.Text:= IdHTTP1.Post('http://tumen.u-tel.ru/facilities/sms',sl);
//тут потом будет проверка ушло сообщение или нет
sl.Free;
end;

или не так что то сделал?

[bulldog5293]

Правильно???

Работает или нет?Прост, самому интерестно

[cargo29]

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

Работает или нет?Прост, самому интерестно

Отправлять отправляет а вот приходит все равно не с той кодировкой..