Как получить данные [D6, WinXP]
denissoft © (2005-10-09 18:24:00)
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags,
TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
Как получить данные PostData в строку
(string);
seeker (2005-10-10 10:51:00) [1]
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;
Наверх 
ЧАТ |
Орешник |
|
