Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   como cargar una pag web utilizando Borland C++ (https://www.clubdelphi.com/foros/showthread.php?t=78465)

lisette 22-04-2012 01:26:27

como cargar una pag web utilizando Borland C++
 
Hola a todos:
En el programas System Care e observado que los menus que tiene son mostrados desde una pagina web.
Como sera posible y si se puede realizar como se puede interactuar con esta pagina web cargada en Borland.
:D

ecfisa 22-04-2012 23:26:29

Hola lisette.

No entiendo bién el contenido de tu mensaje pero en respuesta al título y en forma muy resumida, te pongo un ejemplo de como cargar una página web.

Agregá un TPanel (Align= alTop) y dentro de él un TEdit, 3 TSpeedButton, y un TCppWebBrowser alineado alClient (pestaña Internet).

Luego el siguiente código:
Código:

/* OnKeyDown, si Key = return => Ir */
void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key == VK_RETURN) {
    wchar_t *wchar = new wchar_t[Edit1->Text.WideCharBufSize()];
    CppWebBrowser1->Navigate(Edit1->Text.WideChar(wchar,
      Edit1->Text.WideCharBufSize()));
    delete wchar; 
  }
}

/* SpeedButtonGo = Ir */
void __fastcall TForm1::SpeedButtonGoClick(TObject *Sender)
{
  Edit1->SetFocus(); 
  keybd_event(VK_RETURN, 0, 0, 0); // => OnKeyDown
}

/* SpeedButtonForward = Atras */
void __fastcall TForm1::SpeedButtonForwardClick(TObject *Sender)
{
  CppWebBrowser1->GoForward();
}

/* SpeedButtonStop = Parar */
void __fastcall TForm1::SpeedButtonStopClick(TObject *Sender)
{
  CppWebBrowser1->Stop();
}

Saludos.


La franja horaria es GMT +2. Ahora son las 14:48:17.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi