Как получить 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