Ver Mensaje Individual
  #2  
Antiguo 26-01-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.114
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Respecto lo primero puedes escribir HTML directamente en un "TWebBrowser" más o menos así:

Código Delphi [-]
uses
  ActiveX, MSHTML;

procedure AddHtml(browser: TWebBrowser; html: string);
var
  temp: Variant;
  doc: IHTMLDocument2;
begin
  temp := VarArrayCreate([0, 0], varVariant);
  temp[0] := html;
  if browser.Document = nil then
    browser.Navigate('about:blank');
  doc := browser.Document as IHTMLDocument2;
  doc.Write(PSafeArray(TVarData(temp).VArray));
  doc.Close;
  doc := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  AddHtml(WebBrowser1, '¡Hola mundo!');
end;

El código está basado en cierto método del componente "TEmbeddedWB".
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita