Как получить URL?

Материал из DRKB


TWebBrowser.После нажатия кнопки на web форме формируется ссылка на какую-то страницу с параметрами, а с этой страницы уже происходит перенаправление на результирующую страницу. Хотелось бы увидеть ссылку на страницу вместе с параметрами.


function GetPostParam(const PostData: OleVariant): string;
var
  V: Variant;
  P: PChar;
  lb, hb, i: Integer;
begin
  V := Variant(TVarData(PostData).VPointer^);
  if VarIsArray(V) then
  begin
    P := VarArrayLock(V);
    try
      lb := VarArrayLowBound(V, 1);
      hb := VarArrayHighBound(V, 1);
      SetString(Result, P, hb - lb + 1);
      for i := 1 to Length(Result) do
      begin
        if Result[i] = #0 then
        begin
          SetLength(Result, i - 1);
          Break;
        end;
      end;
      Exit;
    finally
      VarArrayUnlock(V);
    end;
  end;
  Result:= '';
end;


Author: P.O.D.
Source: http://forum.sources.ru
ID: 03476