Ошибка Invalid argument

[StartMis]

Нашел в сети :

function Variant2Str(V:OleVariant):string;
var Data:pointer;
S: TMemoryStream;
begin
Data := VarArrayLock(V);
try
S := TMemoryStream.Create;
try
S.Write(Data^, VarArrayHighBound(V, 1) - VarArrayLowBound(V, 1) + 1);
S.Position := 0;
s.SaveToFile('d:\1234.txt');
finally
S.Free;
end;
finally
VarArrayUnlock(V);
end;
end;


procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
Variant2Str(PostData);
end;

выдает ошибку Invalid argument. что не так? как это исправить?

[mihali4]

А чему равно PostData ?

[ImmortalAlexSan]

PostData:OleVariant; Просто после запятой ещё одна переменная, а после нее тип. и вообще, если я не ошибаюсь, то как Variant2Str будет работать с (PostData), когда пост дата описан, как возвращаемое значение? Если я не ошибаюсь, то после Var идут возвращаемые значения процедурой. Попробуйте так:

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName,
  Headers: OleVariant; var Cancel: WordBool);
var
 PostData:OleVariant;
begin
Variant2Str(PostData);
end;

[mihali4]

При чем тут тип ???
Я спрашиваю, с каким конкретным значением PostData вызывается Variant2Str(), использующая PostData в качестве параметра? Где этот параметр определяется ? Какое значение имеет ?

[ImmortalAlexSan]

mihali4, прошу прощения, не понял, но на роль всезнайки тоже не претендовал. =)

[StartMis]

PostData это данные которые WebBrowser передает серверу при отправке методом POST.

[mihali4]

Опять двадцать пять...
Вы умеете поставить бряку на строку

Variant2Str(PostData);

и посмотреть, есть ли там что-нибудь ?
Ведь вы используете событие BeforeNavigate, а не NavigateComplete.

[StartMis]

mihali4 спасибо.все сделал работает.