Hi,
jetzt bastel ich gerade an der Ver. 0.4 und versuche, auch bei einem notwendigen Proxy die online-Kurse abzufragen. Dazu habe ich hier folgenden Code entdeckt, der irgendwie die Proxy-Einstellungen maschinell abfragt/setzt.
Delphi-Quellcode:
InternetQueryOption(
nil, INTERNET_OPTION_PROXY,
nil, dwSize);
GetMem(ProxyInfo, dwSize);
InternetQueryOption(
nil, INTERNET_OPTION_PROXY, ProxyInfo, dwSize);
ProxyInfo.lpszProxy := '
xxx.xxx.xxx.xxx:80';
ProxyInfo.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
ProxyInfo.lpszProxyBypass := '
www.delphipraxis.net;192.168.*';
if not InternetSetOption(
nil, INTERNET_OPTION_PROXY, ProxyInfo, SizeOf(ProxyInfo^))
then
ShowMessage(Format('
error %d', [GetLastError]));
FreeMem(ProxyInfo);
for x:= 1
to SGWertpapiere.RowCount
do
begin
// die meisten Werte erhält man über diese URL
url := '
http://www.finanzen.net/kurse/kurse_detail.asp?AktieWKN=';
FrmKursaktualisierung.ProgressBar1.position := x;
web := IdHTTP1.Get(
url+sgwertpapiere.Cells[0,x]);
Leider verstehe ich nicht wirklich, wie aus dem ersten Block der Proxy ermittelt wird und wie dieser für idHTTP1.get genutzt werden kann.
Kennt sich hier jemand aus?
Gruß, Andreas