اجرای Action یک دکمه ی Html در TWebBrowser به وسیله ی دلفی

[koosha system]

می شه کسی لطف کنه بگه چه طوری می تونم یک دکمه که تو یک فایل Html (یک سایت) است اکشن اون دکمه رو به وسیله یک Button در دلفی اجرا کنم.یعنی مثل یک لینک.وقتی بر روی یک دکمه در نرم افزار کلیک کردی دکمه ای که تو اون سایت ست کلیک بشه.
ایها الناس کسی هست جواب بده؟ :گیج:

[koosha system]

عزیزان این عکس کل موضوعه.

http://i158.exs.cx/img158/9297/untitled3on.jpg

[koosha system]

هر کس راه حل را می داند برای من ایمیل بفرستد:
koosha_n2004@yahoo.com

[Delphi-Clinic]

سلام



In the BeforeNavigate2 event of TWEBBROWSER, you receive the PostData and Header data as OleVariant. If you simply assign the OleVariant type to a string, you may get part of the data or garbage.

You can convert the OleVariant to String using this function:

function VariantToString(AVar: OleVariant): string;
var
i: integer;
V: olevariant;
begin
Result := '';
if VarType(AVar) = (varVariant or varByRef) then
V := Variant(TVarData(AVar).VPointer^)
else V := AVar;

if VarType(V) = (varByte or varArray) then
try
for i:=VarArrayLowBound(V,1) to VarArrayHighBound(V,1) do
Result := Result + Chr(Byte(V[i]));
except;
end
else Result := V;
end;


A nice FAQ site on TWEBBROWSER is:
http://members.home.com/hfournier/


حالا اگر انگلیسی فهمیدنت هم عین ادبت نباشه مطلب رو می گیری.

در غیر اینصورت ازت ناامیدتر میشم. :)