Главная страница
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.026 c
3-1132913589
Ega23
2005-11-25 13:13
2006.01.22
TADODataSet.CreateParameter в ран-тайме


2-1136467704
Seraphim
2006-01-05 16:28
2006.01.22
Взаимодействие Программ


14-1135663833
Котик Б
2005-12-27 09:10
2006.01.22
Смотрел намедни фильм "Юлия"


2-1136300415
Slaga
2006-01-03 18:00
2006.01.22
Как узнать величину загрузки процессору ?


1-1134465907
Asail
2005-12-13 12:25
2006.01.22
Корректное закрытие приложения ...