DDE 不完整 乱码(30)

  • 主题发起人 主题发起人 zqssoft
  • 开始时间 开始时间
Z

zqssoft

Unregistered / Unconfirmed
GUEST, unregistred user!
为什么用DDE取得IE当前网页的标题和网址,有时取得的信息不完整呢。比如取盒子论坛这个网页就不完整。而用同样的代码,取firefox的却是完整的。uses DdeMan,SHDocVw;{$R *.dfm}function GetURL(Service: string): string;varClDDE: TDDEClientConv;temp: PChar;beginResult:='';//create a new DDE Client objectClDDE:=TDDEClientConv.Create(nil);with ClDDE dobegin SetLink(Service, 'WWW_GetWindowInfo'); temp := RequestData('0xFFFFFFFF'); Result := strpas(temp); StrDispose(temp); CloseLink;end;ClDDE.Free;end;procedure TForm1.btn1Click(Sender: TObject);vars1,s2,DDEString:string;ipos:integer;DDEString:= GetUrl('iexplore');iPos:=Pos(',', DDEString);s1:=Copy(DDEString,iPos+2,Length(DDEString)-iPos-5);s2:=Copy(DDEString,2,iPos-3);Edt1.Text:=S1;Edt2.Text:=s2;end;procedure TForm1.btn2Click(Sender: TObject);vars1,s2,DDEString:string;ipos:integer;DDEString:= GetUrl('firefox');iPos:=Pos(',', DDEString);s1:=Copy(DDEString,iPos+2,Length(DDEString)-iPos-5);s2:=Copy(DDEString,2,iPos-3);Edt1.Text:=S1;Edt2.Text:=s2;end;
 
请高手,谢谢。
 
没有高手了,我来混分。
 
后退
顶部