|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.04.2011, 20:30 | #1 |
Новичок
Джуниор
Регистрация: 15.06.2010
Сообщений: 1
|
Delphi. программа чтоб прогноз погоды показывала. с кодом проблеммы.
код я нашел, все работает, но он показывает погоду москвы и питера, а мне нужен бишкек... на серваке он есть, но как в коде прописать я без понятия......... сервак: http://www.rbc.ru/out/802.csv
вот код: procedure TForm1.Button1Click(Sender: TObject); var S: TStringList; P,I: integer; USD,EUR,AFS,pM,pP: string; begin HTTP:=TIdHTTP.Create(nil); HTTP.HandleRedirects:=True; HTTP.ProtocolVersion:=pv1_0; HTTP.ProtocolVersion:=pv1_0; // S:=TStringList.Create; S.Text:=HTTP.Get('http://www.rbc.ru/out/802.csv'); // Курс валют P:=S.IndexOf('#---- Курсы ЦБ РФ ----'); // if not (P=-1) then begin for i:=0 to 5 do begin inc(P); if Pos('USD ЦБ РФ',S.Strings[p])>0 then USD:=S.Strings[p]; if Pos('EUR ЦБ РФ',S.Strings[p])>0 then EUR:=S.Strings[p]; if Pos('GBP ЦБ РФ',S.Strings[p])>0 then AFS:=S.Strings[p]; end; // USD ЦБ РФ,1 Доллар США,27/02,31.6065,0.019 // EUR ЦБ РФ,1 ЕВРО,27/02,34.0118,-0.1311 end; Delete(USD,1,pos('/',USD)); Delete(USD,1,pos(',',USD)); Delete(USD,pos(',',USD),20); Delete(EUR,1,pos('/',EUR)); Delete(EUR,1,pos(',',EUR)); Delete(EUR,pos(',',EUR),20); Delete(AFS,1,pos('/',AFS)); Delete(AFS,1,pos(',',AFS)); Delete(AFS,pos(',',AFS),20); Label1.Caption:='Курс валют на '+DateToStr(Now)+': '+#10#13+#10#13+' Доллар США: '+USD+#10#13+' Евро: '+EUR+#10#13+' Английский фунт стерлингов: '+AFS; // Погода P:=S.IndexOf('#---- Погода в городах России и СНГ ----'); // if not (P=-1) then begin for i:=0 to 5 do begin inc(P); if Pos('Погода,Москва',S.Strings[p])>0 then pM:=S.Strings[p]; if Pos('Погода,С-Петербург',S.Strings[p])>0 then pP:=S.Strings[p]; end; // Погода,Москва,17/11,-4...-2,Москва // Погода,С-Петербург,17/11,-4...-2,С-Петербург end; HTTP.Free; Delete(pM,1,pos('/',pM)); Delete(pM,1,pos(',',pM)); Delete(pM,pos(',',pM),20); Delete(pP,1,pos('/',pP)); Delete(pP,1,pos(',',pP)); Delete(pP,pos(',',pP),20); Label1.Caption:=Label1.Caption+#10# 13+#10#13+'Погода на: '+DateToStr(Now)+': '+#10#13+#10#13+' Москва: '+pM+#10#13+' Санкт-Петербург: '+pP; end; procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption:='Курс валют/погода на '+DateToStr(Date)+':'; end; end. курс валют я убрать смог, а вот поменять города не могу...... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Снова прогноз погоды | Andrey85 | Работа с сетью в Delphi | 1 | 30.10.2010 23:45 |
Прогноз погоды (курсовой) | WhitePoint | Помощь студентам | 21 | 10.06.2010 17:56 |
гле найти архив чтоб запускался как программа? | Giku | Помощь студентам | 5 | 30.12.2009 17:44 |
Прогноз погоды | VarVara | PHP | 3 | 06.05.2007 23:34 |