Premetto ch sto cominciando adesso con il Delphi, e che quindi non sono ancora pronto a questo
progettino,però (per curiosità) ho voluto seguire passo-passo le istruzioni del mio libro per la creazione
di un browser web molto, ma molto rozzo.
unit WebBrsU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, ExtCtrls, OleCtrls, SHDocVw;
type
TWebMain = class(TForm)
Panel1: TPanel;
UrlComboBox: TComboBox;
StatusBar: TStatusBar;
HTML: TWebBrowser; //HTML:THTML; così era nel libro
procedure UrlComboBoxClick(Sender: TObject);
procedure UrlComboBoxKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebMain: TWebMain;
implementation
{$R *.DFM}
procedure TWebMain.UrlComboBoxClick(Sender: TObject);
begin
if URLComboBox.Text<>'' then
HTML.RequestDoc(URLComboBox.Text); //L'errore è qui
end;
procedure TWebMain.UrlComboBoxKeyPress(Sender: TObject; var Key: Char);
begin
if Key= Char(VK_RETURN) then begin
Key:=#0;
if URLComboBox.Text= '' then
Exit;
UrlComboBoxClick(Sender);
end;
end;
end.
Poichè il codice da dove ho preso spunto è scritto per Delphi 4 (io uso il 5) penso che il
problema sia nel metodo "RequestDoc", che a detta del libro dovrebbe caricare la pagina
desiderata.Dovrei utilzzare qualche altro "metodo"?
Inoltre non trovavo nella palette il controllo HTML (come lo chiama il libro) ed a tentatvi ho messo
WebBrowser (presente in Delphi5) per sostituirlo, ho fatto bene?
Grazie a tutti.
Rispondi quotando
,dico bene?
