WebBrowser Archives

WebBrowser에 HTML 내용 바꾸기 ( Delphi & C++ Builder )

TWebBrowser의 HTML을 변경하려면 우선..WebBrowser1.Navigator(‘About:Blank’)로 초기화를 한뒤에 아래와 같이 작업하시면 됩니다. 델파이와는 다르게 C++ Builder에서는 variant형의 지원때문에 조금 길어 보입니다. 내용은 100% 동일합니다. Delphi

&nbsp;WebBrowser1.OleObject.Document.Body.innerhtml :=&nbsp; WebBrowser1.OleObject.Document.Body.innerhtml +
'<FONT color=#3058d2><SPAN style="FONT-FAMILY: Gulim"><SPAN style="FONT-SIZE: 10pt"><STRONG> 이름 : </STRONG> </SPAN> </SPAN> <SPAN style="FONT-FAMILY: Arial"> <SPAN style="FONT-SIZE: 10pt"> <FONT color=#000000>' + Edit1.Text + '</FONT> </SPAN> </SPAN> <br /> </FONT>';

 WebBrowser1.OleObject.Document.Body.innerhtml :=  WebBrowser1.OleObject.Document.Body.innerhtml +

' 이름 : ' + Edit1.Text + ' ';

…

WebBrowser의 HTML소스보기

WebBrowser의 Html 소스 StringList에 넣는 소스 입니다. 원 소스를 조금 수정한것입니다. 원본 소스 있는곳..http://delphi.about.com/od/internetintranet/l/aa062904a.htm 일반적으로 WebBrowser1.OleObject.Document.documentElement.innerHTML; 이렇게 얻은 내용과 약간의 차이가 있네요.

procedure WB_SaveAs_HTML(WB: TWebBrowser; StrLst: TStrings);
// uses ActiveX;
var
  PersistStream: IPersistStreamInit;
  Stream: IStream;
  FileStream: TmemoryStream;
begin
  if not Assigned(WB.Document) then
  begin
    ShowMessage('Document not loaded!');
    Exit;
  end;

  PersistStream := WB.Document as IPersistStreamInit;
  FileStream := TmemoryStream.Create;
  try
    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
    if Failed(PersistStream.Save(Stream, True)) then
      ShowMessage('SaveAs HTML fail!');
    FileStream.Position := 0;
    StrLst.Clear;
    StrLst.LoadFromStream(FileStream);
  finally
    FileStream.Free;
  end;
end;

procedure WB_SaveAs_HTML(WB: TWebBrowser; StrLst: TStrings);

// uses ActiveX;

var

PersistStream: IPersistStreamInit;

Stream: IStream;

FileStream: TmemoryStream;

begin

if not Assigned(WB.Document) then

begin

ShowMessage('Document not loaded!');

Exit;

end;

PersistStream := WB.Document as IPersistStreamInit;

FileStream := TmemoryStream.Create;

try

Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;

if Failed(PersistStream.Save(Stream, True)) then

ShowMessage('SaveAs HTML fail!');

FileStream.Position := 0;

StrLst.Clear;

StrLst.LoadFromStream(FileStream);

finally

FileStream.Free;

end;

EagleSoft

[태그:] WebBrowser

WebBrowser에 HTML 내용 바꾸기 ( Delphi & C++ Builder )

WebBrowser의 HTML소스보기

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

네오크린 : 세탁 관리 프로그램

네오북 : 마을 문고/소규모 도서 관리 프로그램

최신 댓글