Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007

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 if Result[i] = #0 then begin
   
SetLength(Result, i - 1); Break; end; Exit;
 
finally  VarArrayUnlock(V);   end;
 
end;
Result:= '';
end;

Автор: P.O.D.

Взято из https://forum.sources.ru