Извините, ничего не найдено.

Trazzy · 20.09.2010, 09:28

Требуется передать на сайт строку с русским текстом в кодировке win-1251.
Нужно перевести utf-8 -> win-1251 - как это реализовать?

(использую POST)


			
program sendtosite;

uses Lib_proweb;



//...

q_request('http://сайт.ру/', POST, 'string=русский-текст', 'none');

//...

SBJoker · 20.09.2010, 10:30

все реквесты передаются только в кодировке base64, кодируй в неё и передавай.

Trazzy · 20.09.2010, 10:35

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

все реквесты передаются только в кодировке base64...

ясно, не знал

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

...кодируй в неё и передавай.

~~кто знает как это сделать?~~
Upd: в proweb нашел

.. буду разбираться

Phantom · 20.09.2010, 14:57

все реквесты передаются только в кодировке base64

Base64 тут не юзают, вроде (хотя наверно можно, если указать правильный Контент Тип). Я в PHP когда нужно отправить запрос к стороннему серверу, всегда юзаю urlencode() и проблем никогда не было. Вот описание из мануала:

urlencode - URL-кодирует строку.

string urlencode (string str)

Возвращает строку, в которой все не алфавитно-числовые символы (кроме -_.) заменены на знак процентов (%) с последующими двумя 16-ричными цифрами и пробелами, кодированными как знаки плюс (+). Она кодируется тем же способом, что и post данные WWW-формы, то есть как в типе носителя application/x-www-form-urlencoded.

И этот метод попроще, чем base64, даже битовые сдвиги юзать не надо.

Trazzy · 20.09.2010, 22:08

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

..(хотя наверно можно, если указать правильный Контент Тип)..

у меня стоит:


			
q_property('Content-Type', 'application/x-www-form-urlencoded');

Раньше показывало как "???????-?????", я попробовал так:


			
q_request('http://сайт.ру/', POST, base64_encode('string=русский-текст'), 'none');

- переводит в белиберду типа "8PPx8ero6S3y5erx8g=="

ViNT · 20.09.2010, 22:39

Сообщение от 2Fake

у меня стоит:


			
q_property('Content-Type', 'application/x-www-form-urlencoded');

Раньше показывало как "???????-?????", я попробовал так:


			
q_request('http://сайт.ру/', POST, base64_encode('string=русский-текст'), 'none');

- переводит в белиберду типа "8PPx8ero6S3y5erx8g=="

Белиберда это как раз Base64

Phantom · 20.09.2010, 22:42

Я же тебе написал как делать. Преобразуй все символы, не входящие в диапазон [a-zA-Z0-9._-] в % + шестнадцатиричный код символа. Например, было "слово", а стало "%D1%81%D0%BB%D0%BE%D0%B2%D0%BE" (тут в примере для кодировки UTF-8 ). Ты смотри кодировку страницы, где у тебя оригинальная форма находится. Форма отправляет текст в той кодировке, в какой страница написана.

SBJoker · 20.09.2010, 22:54

а base64 всёрно круче и экономичнее...

Trazzy · 21.09.2010, 01:05

Форма находится на стороннем сервере [кодировка UTF-8]..
Отправляю так:


			
program sendtosite;

uses proweb;

var

  fld, ind: integer;

  btn, clicked: command;



begin

  ClearForm;

  ShowForm;

  SetFormTitle('Отправка');

  fld:=formAddTextField('Текст:', '', 100, TF_ANY);

  btn:=CreateCommand('OK', CM_SCREEN, 1);

  AddCommand(btn);

  repeat

   clicked := GetClickedCommand;

  until clicked <> EmptyCommand;

  q_property('Accept', '*/*');

  q_property('Content-Type', 'application/x-www-form-urlencoded');

  q_property('User-Agent', 'myprog');

  ind:=q_request('http://сайт.ру/index.php', POST, 'string='+FormGetText(fld), 'none');

end.

Возращает строку "Булка.", как "?????."

Что не так?

ViNT · 21.09.2010, 01:12

На сколько я понимаю, если в ContentType указано application/x-www-form-urlencoded, то строку нужно предварительно перекодить так, как говорил Phantom.

Trazzy · 21.09.2010, 01:25

Тестировал на localhost'е. Попробовал убрать строчку


			
q_property('Content-Type', 'application/x-www-form-urlencoded');

- POST не принимает ничего..

ViNT · 21.09.2010, 01:28

Естественно, параметр ContentType должен быть задан. Попробуй передать закодированную строку (с q_property('Content-Type', 'application/x-www-form-urlencoded'); ).

Trazzy · 21.09.2010, 02:25

Сходил на перекур, попробовал сделать так:


			
program sendtosite; 

uses proweb; 

var 

  fld, ind, n, i: integer; 

  btn, clicked: command; 

  baza, alf, message_m, cha, ready_m: string;

  rus_alf, rus_mess: array[0..400] of string;

  contin: boolean;



procedure Initial; //инициализация (нужна для функции encod)

begin

baza := '%D0%B0%D0%B1%D0%B2%D0%B3%D0%B4%D0%B5%D1%91%D0%B6%D0%B7%D0%B8%D0%B9%D0%BA%D0%BB%D0%BC%D0%BD%D0%BE%D0%BF%D1%80%D1%81%D1%82%D1%83%D1%84%D1%85%D1%86%D1%87%D1%88%D1%89%D1%8A%D1%8B%D1%8C%D1%8D%D1%8E%D1%8F%D0%90%D0%91%D0%92%D0%93%D0%94%D0%95%D0%81%D0%96%D0%97%D0%98%D0%99%D0%9A%D0%9B%D0%9C%D0%9D%D0%9E%D0%9F%D0%A0%D0%A1%D0%A2%D0%A3%D0%A4%D0%A5%D0%A6%D0%A7%D0%A8%D0%A9%D0%AA%D0%AB%D0%AC%D0%AD%D0%AE%D0%AF';

alf  := 'абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

n:=0;

for i := 0 to 65 do

  begin

    rus_alf[i] := getchar(alf, i);

    rus_mess[i] := copy(baza, n, n+6);

    n:= n+6;

  end;

end;



function encod(mess: string): string; //этим мы перекодируем строку

begin

message_m:='';

for i := 0 to length(mess)-1 do

    begin

    contin:=false;

      for n:=0 to 65 do

      begin

      cha:=getchar(mess,i);

      if contin=false then

        begin

        if cha = rus_alf[n] then 

            begin

            message_m := message_m + rus_mess[n] ;

            contin:=true;

            end;

            else contin:=false;

        end;

      end;

      if contin=false then message_m:=message_m+cha;

    end;

encod:=message_m;

end;



begin //код программы

  Initial;

  ClearForm; 

  ShowForm; 

  SetFormTitle('Отправка'); 

  fld:=formAddTextField('Текст:', '', 100, TF_ANY); 

  btn:=CreateCommand('OK', CM_SCREEN, 1); 

  AddCommand(btn); 

  repeat 

   clicked := GetClickedCommand; 

  until clicked <> EmptyCommand;

  ready_m:=encod(FormGetText(fld)); //перекодировали то, что ввели с формы

  q_property('Accept', '*/*'); 

  q_property('Content-Type', 'application/x-www-form-urlencoded'); 

  q_property('User-Agent', 'myprog'); 

  ind:=q_request('http://localhost/index.php', POST, 'go='+ready_m, 'none'); //и отправили

end.

на localhost'е такой код:


			
<?php



//это содержание файла index.php (UTF-8)

//(в ".htaccess" стоит "AddDefaultCharset utf-8")



$getp=$_POST['go'];



$gets=@file_get_contents('br.dat');

$gets=$getp."\n".$gets;



$sava=fopen('test.dat', 'w');

fputs($sava, $gets);

fclose($sava);



?>

Результаты:
localhost - принял, создался файл "test.dat" (ANSI-кирилица) с введенной строкой..
сторонний сайт - отказался!!

Upd: не знаю что и делать

Trazzy · 22.09.2010, 04:50

Ну что ни у кого больше нет идей?.. Что может еще быть?

SBJoker · 22.09.2010, 10:49

Я уже всё написал, как это делается.