Форум: "Сети";
Текущий архив: 2006.01.22;
Скачать: [xml.tar.bz2];
ВнизКак получить данные Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.043 c