Показать сообщение отдельно
Старый 27.11.2004, 17:38     # 23
Zueuk
Member
 
Аватар для Zueuk
 
Регистрация: 21.08.2003
Адрес: Россия
Пол: Male
Сообщения: 388

Zueuk Популярный человек на этом форумеZueuk Популярный человек на этом форумеZueuk Популярный человек на этом форумеZueuk Популярный человек на этом форумеZueuk Популярный человек на этом форумеZueuk Популярный человек на этом форумеZueuk Популярный человек на этом форумеZueuk Популярный человек на этом форуме
Вот код:

Код:
// Введен URL или адрес HTML файла и нажата клавиша Enter
void __fastcall TForm1::ComboBox1KeyPress(TObject *Sender,
       char &Key)
{ if (Key == VK_RETURN)
  { Key = 0;
    if (ComboBox1->Text == "") return;
    WideString URL = (WideString)ComboBox1->Text;
    BSTR Headers = NULL;
    TVariant Flags = {0}, vTargetFrameName = {0},
                          vPostData = {0}, vHeaders = {0};
    LPCTSTR PostData = Edit1->Text.c_str();
    UINT  cElems = lstrlen(PostData);
    LPSTR pPostData;
    Headers = SysAllocString
        (L"Content-Type: application/x-www-form-urlencodedrn");
    V_VT(&vHeaders) = VT_BSTR;
    V_BSTR(&vHeaders) = Headers;
    LPVARIANT pvPostData = vPostData;
    if (pvPostData)
    { VariantInit(pvPostData);
      LPSAFEARRAY psa = SafeArrayCreateVector(VT_UI1, 0, cElems);
      if (!psa) return;
      SafeArrayAccessData(psa, (LPVOID*)&pPostData);
      memcpy(pPostData, PostData, cElems);
      SafeArrayUnaccessData(psa);
      V_VT(pvPostData) = VT_ARRAY | VT_UI1;
      V_ARRAY(pvPostData) = psa;
    }
    CppWebBrowser1->Navigate(URL, &Flags, &vTargetFrameName,
                             &vPostData,  &vHeaders);
  }
}
Места, на которых я запнулся выделил жирным.
Поясню: этот код обрабатывает строку, введенную для открытия. В качестве нее может быть адрес в сети или на локальный HTML файл.
__________________
The Man Who Sold The World (© Nirvana)

So What! (© Metallica)
Zueuk вне форума