Главная страница
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.028 c
2-1136469766
ArtemESC
2006-01-05 17:02
2006.01.22
Оттенки цветов...


1-1134654245
BFG9k
2005-12-15 16:44
2006.01.22
Дельфи находит файлы, которые находить не должен


14-1135511079
Ламерюга
2005-12-25 14:44
2006.01.22
Как узнать значение переменной хранящейся в другой форме!


1-1135067057
Stanislav
2005-12-20 11:24
2006.01.22
Перемещение объекта в TScrollBox


2-1136484770
Purgen
2006-01-05 21:12
2006.01.22
DLL