Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.22;
Скачать: 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 вся ветка

Текущий архив: 2006.01.22;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.025 c
2-1135916277
pic
2005-12-30 07:17
2006.01.22
как унать родителя


14-1135506830
boriskb
2005-12-25 13:33
2006.01.22
Полностью согласен :)


1-1134480593
Reset
2005-12-13 16:29
2006.01.22
Поиск компонента и выяснение его свойств...


2-1135752119
john_mag
2005-12-28 09:41
2006.01.22
DateFormat


1-1134722112
scorpio_md
2005-12-16 11:35
2006.01.22
Как закрыть EXCEL без запроса на сохранение