Главная страница
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.03 c
3-1132905997
Johnmen
2005-11-25 11:06
2006.01.22
ADO и потоки: таймаут при выполнении запроса.


2-1136440995
ezorcist
2006-01-05 09:03
2006.01.22
Эмулировать клик мыши?


2-1136212863
xroot
2006-01-02 17:41
2006.01.22
Показать форму не привлекая фокус


3-1132313758
td
2005-11-18 14:35
2006.01.22
создание таблицы запросом


14-1135578051
Иксик
2005-12-26 09:20
2006.01.22
Рождество Христово