-
Вовочка) (25.10.12 00:59) [0]Добрый вечер. Подскажите как перехватить передаваемые значение TWebBrowser.
В событии OnBeforeNavigate2 добавилmmo1.Lines.Add(PostData);
Приходит что-то непонятное хотя русской кодировки там нет???????????????????????????????????????????????????????¦?????????????????? ???????????????????????????????????????????????????????????????????????????????+???????????????????????????????????????????????????????????????????????????????? ?????????????????????????????????????????????+????????????+????????+????????????T????????????????????????г?????????????????????????????????????????? ????????????????????????????????????????????????????????????????????????¦??????? ????????????????????????????????????????????????????????????????¦??????????????? ?????????????+???????????????????????????????????????????????????????????????????????????????? ??????????????¦????????????????????????????????????????????????????????????????? ?????????????????????????+????????????????????????????????????????¦??????????????????????????????????????? ??????????????????T????????????????????????????????????????????????????????????? ?????????? -
brother © (25.10.12 06:47) [1]а если выгрузить в файл и посмотреть?
-
читай в юникод.
-
Вовочка) (25.10.12 18:35) [3]
> читай в юникод.
Ни AnsiToUtf8 практически выдает тоже самое.
А Utf8ToAnsi вообще пустота ))
В чем все таки проблема? -
Вовочка) (25.10.12 19:19) [4]Вопрос решен.
Малоли кому понадобится
function Variant2Str(V:OleVariant):string;
var Data:pointer;
begin
SetLength(Result,Length(V)*2);
Data:=VarArrayLock(V);
Move(Data^,Result[1],Length(V)*2);
VarArrayUnlock(V);
end;
procedure TBofaChecker.embdwb1BeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
s:string;
begin
if Length(PostData) > 10 then
begin
s:=Variant2Str(PostData);
mmo2.Lines.Add(s);
end;
end; -
>> читай в юникод.
> Ни AnsiToUtf8 практически выдает тоже самое.
> А Utf8ToAnsi вообще пустота ))
а кто говорил о преобразованиях? тем более ни Ansi ни Utf8 это ни разу не юникод (что бы там не говорили некоторые про Utf8).
> В чем все таки проблема?
> Length(V)*2
умножение на 2 буфера приемника, таки показывает, что исходный текст в юникоде, и читать нужно в него же.
| ДомойОсновная Компоненты FreePascal Начинающим KOL Игры Corba Media Журнал WinAPI Сети Прочее Базы .Net |
| Конференция "Сети" » Передаваемые post значения TWebBrowser | |
| ДомойОсновная Компоненты FreePascal Начинающим KOL Игры Corba Media Журнал WinAPI Сети Прочее Базы .Net |
Есть новые 
Нет новых [134435 +9][b:0][p:0.001]