Скачать: CL | DM;

Как получить данные   Найти похожие ветки 

← →
denissoft ©   (2005-10-09 18:24) [0]

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) [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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.026 c