باز شدن صفحه با http پروکسی

[sajioo]

سلام دوستان و اساتید محترم
فرضا بنده بر روی فرمم یک webbrowser دارم
یک http پروکسی هم تهیه کردم
چگونه میتوانم سایت ها را در بروزر فرمم با این http پروکسی باز کنم .
برای مثال فیس بوک رو بتونه باز کنه؟
دوستان راهی هست؟:متفکر:
با تشکر

[Mask]

چگونه میتوانم سایت ها را در بروزر فرمم با این http پروکسی باز کنم .

برای مثال فیس بوک رو بتونه باز کنه؟
این دو موضوع کاملا متفاوت هست .
اگر فقط سوالتون استفاده از پروکسی سرور هست از این لینک (http://barnamenevis.org/showthread.php?432258-%DA%A9%D8%AF-%D9%86%D9%88%DB%8C%D8%B3%DB%8C-%D8%A8%D8%B1%D8%A7%DB%8C-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84-%D9%BE%DB%8C%D8%A7%D9%85%DA%A9-%D8%AF%D8%B1-%D8%AF%D9%84%D9%81%DB%8C-%D8%A8%D8%A7-%D9%88%D8%A8-%D8%B3%D8%B1%D9%88%DB%8C%D8%B3-(-%D8%A7%DB%8C%D9%86%D8%AA%D8%B1%D9%86%D8%AA-%DB%8C%D9%88%D8%B2%D8%B1-%D9%87%D8%A7-%D9%BE%D8%B1%D8%A7%DA%A9%D8%B3%DB%8C-%D8%A7%D8%B3%D8%AA)&p=1935310#post1935310) که توضیح دادم و سمپل گزاشتم میتونید استفاده کنید.

[sajioo]

تشکر گلد عزیز اما چطوری این پروکسی رو با webbeowser ست کنم؟

[sajioo]

گلد سورسی که گذاشته بودی استفاده کردم اما نتونستم بفهمم.
شاید من منظورم صحیح نرسوندم.
فرضا من یک http proxy به صورت 200.109.172.101:8080 دارم
چطور می تونم اینو با برنامم ست کنم که وقتی برنامه با بروزر داخلش رفت تو سایت http://www.ip2location.com/ سایت ip منو 200.109.172.101 نشون بده.
ببخشید اگه سوال زیاد کردم

[sajioo]

عزیزان تونستم با idhttp و با پروکسی سرور به سایت وصل بشم
با کد زیر


str:=idhttp1.Get('http://ip2location.com');

redt1.Lines.Add(str);
AssignFile(myFile, 'htm.html');
ReWrite(myFile);
WriteLn(myFile, str);
CloseFile(myFile);
wb1.Navigate('htm.htm');




سوالم اینجاست که الان که htm.html رو لود کنم چون بر روی کامپیوتر خودم ذخیره شده سایت بدون style و img ... لود میشه .
چطور میتونم مستقیم اطلاعاتی که از idhttpمیاد رو به بروزر بدم ؟
با تشکر

[sajioo]

بروزر روی فرم منظورمه گولد عزیز

[Mask]

بروزر روی فرم منظورمه گولد عزیز
ببین دوست من . وب بروزر موجود در دلفی ، بروزره مشتق شده از وب بروزر ویندوز شماست .
این کامپوننت به صورت معمول پروپرتی برای تنظیم پروکسی نداره .
3 راه دارید :
1-در قسمت InterNet Option ، در سربرگ کانکشن ، به صورت دستی ، این مقادیر رو ست کنید.
2- با تنظیم مقادیر لازم در رجیستری ، پروکسی مورد نظر رو بر روی ویندوز ست کنید . در این صورت مرورگر موجود در برنامه شما هم از همین قانون پیروی میکنه.
3- استفاده از Api های موجود، که ویندوز در اختیار برنامه نویس ها قرار میده . در این روش به صورت موقت پروکسی در حافظه مرورگر بار گزاری شده و سایت مورد نظر شما از طریق پروکسی باز میشود.
برای مثال ،نمونه زیر راه گشاست . البته توضیحات کامل رو در msdn میتونید ملاحظه کنید.

procedure TForm1.Button1Click(Sender: TObject);
var proxy_info : PInternetProxyInfo;
user,pass,UserAgent:string;
begin
user:='user';
pass:='pass';
UserAgent:='MSIE';
New (proxy_info);
proxy_info^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
proxy_info^.lpszProxy := PAnsiChar('proxyserver:443');
proxy_info^.lpszProxyBypass := PAnsiChar('');
UrlMkSetSessionOption(INTERNET_OPTION_PROXY_USERNA ME, PAnsichar(user), Length(user)+1, 0);
UrlMkSetSessionOption(INTERNET_OPTION_PROXY_PASSWO RD, PAnsichar(pass), Length(pass)+1, 0);
UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, PChar(UserAgent), Length(UserAgent)+1, 0);
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, proxy_info, SizeOf(Internet_Proxy_Info), 0);
Dispose(proxy_info);

WebBrowser1.Navigate(Edit1.Text);
end;

[sajioo]

بسیار تشکر گلد عزیز از راهنمای های این چند روزت
الان فقط ایراد من اینه که UrlMkSetSessionOption رو نمیشناسه.uses خاصی باید اضافه کنم؟
بازم تشکر از زحماتت
راستی دلفی 7 استفاده می کنم. میدونم قدیمی هستش اما فعلا اجباریه:لبخند:

[Mask]

بد نیست خودتون هم کمی تلاش کنید.

uses wininet, urlmon,ActiveX;

[sajioo]

بله پیداش کردم گلد عزیز
اینارو اضافه کردم اما مشکل اصلی در