在123.aspx (asp.net)中有一个delphi做的active from 通过123.aspx?id=123请问我在active from 中怎样来读取id的值

Question

rt

Answer 1

原来项目中写的
//TTrackRevisionRTF = class(TActiveForm, ITrackRevisionRTF)//*************************得到当前URL地址**************************************
function  TTrackRevisionRTF.GetIEURL:olevariant;
var
  nmm_ipSrvProv: IserviceProvider;
  nmm_baBrowser: IwebBrowserApp;
  nmm_objIEDoc:IHTMLDocument2;
begin
if Assigned(ActiveFormControl.ClientSite) and(ActiveFormControl.ClientSite.QueryInterface(IserviceProvider, nmm_ipSrvProv) = S_OK) then
   if (nmm_ipSrvProv.QueryService(IwebBrowserApp, IwebBrowserApp, nmm_baBrowser) = S_OK) then
   begin
       nmm_objIEDoc := nmm_baBrowser.Document as IHTMLDocument2;
       Result := nmm_objIEDoc.url;
   end;
end;取出url接下来你就可以处理取id了。