Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=5860&view=findpost&p=66374 Tue, 11 Mar 2003 19:10:05 +0000 Windows-1251 https://forum.sources.ru/index.php?showtopic=5860&view=findpost&p=66374 Grisha Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5860&view=findpost&p=66372 Tue, 11 Mar 2003 18:11:57 +0000 Windows-1251 https://forum.sources.ru/index.php?showtopic=5860&view=findpost&p=66372 Цитата Song, 11.03.03, 21:01:41
И где же она эта твоя отправка? Вижу только закрытие и открытие сокета.


Song, отправка и получение данных все есть.

void __fastcall TProcessForm::ClientSocket1Write(TObject *Sender, TCustomWinSocket *Socket)
{
   Socket->SendText(TextToSend);
}

void __fastcall TProcessForm::ClientSocket1Read(TObject *Sender, TCustomWinSocket *Socket)
{
   ReceivedText += Socket->ReceiveText();
}

Он же ж отправляет данные нормально и получает готовую html-страницу, но только иногда она приходит в KOI8-R. Как добиться всегда Windows-1251??? Может быть у меня что-то в заголовке не так? Я пробовал Win-1251, тоже не работает...

]]> Grisha Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5860&view=findpost&p=66370 Tue, 11 Mar 2003 18:01:41 +0000 Windows-1251 https://forum.sources.ru/index.php?showtopic=5860&view=findpost&p=66370 Song Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5860&view=findpost&p=66368 Mon, 10 Mar 2003 20:56:34 +0000 Windows-1251 https://forum.sources.ru/index.php?showtopic=5860&view=findpost&p=66368    // отправка данных
   TStringList *Items = new TStringList();
   TRY
       Items->Add(f->METHOD + " " + MakeURL(CurrentURL, f->action) + " HTTP/1.0");
       Items->Add("Content-Type: application/x-www-form-urlencoded");
       Items->Add("Accept-CharSet: Windows-1251");
       Items->Add("User-Agent: Mozilla/3.0 (compatible; BuilderC++)");
       Items->Add("Host: " + ExtractHost(CurrentURL));
       Items->Add("Content-Length: " + Content.Length()));
       Items->Add("");
       Items->Add(Content);
       TextToSend = Items->Text;
   FINALLYD(Items)
   ClientSocket1->Close();
   ClientSocket1->Host = ExtractHost(CurrentURL);
   ClientSocket1->Open();]]> Grisha Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5860&view=findpost&p=66366 Mon, 10 Mar 2003 06:47:05 +0000 Windows-1251 https://forum.sources.ru/index.php?showtopic=5860&view=findpost&p=66366 Нужен код.]]> Song Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5860&view=findpost&p=66364 Sun, 09 Mar 2003 18:58:12 +0000 Windows-1251 https://forum.sources.ru/index.php?showtopic=5860&view=findpost&p=66364 в кодировке Windows-1251?

Через TClientSocket я отправляю запрос на несколько
сайтов, где в одной из строк указываю:

"Accept-CharSet: Windows-1251"

Но некоторые все же возвращают страницу в KOI8-R.
Может что-то не так?]]> Grisha Delphi: Общие вопросы