Войти или зарегистрироваться
Выберите удобный способ — аккаунт создастся автоматически.
Или войдите по логину и паролю
26.05.2008, 05:41
|
|
Новичок
Регистрация: 11.05.2008
Сообщений: 27
С нами:
9473694
Репутация:
0
|
|
Помогите пожалуйста примером (исходником с описанием)
Кто может сделать пример игры: "Крестики-нолики" через интернет? (я хочу более сложную игрушку сделать, но мне нужен пример для работы с данными через интернет)
Соединение не по Ip (потому, что у многих он не явный), допустим через какой-либо сайт на бесплатном хостинге
|
|
|
выпадающий список + сворачивание |
20.08.2008, 21:39
|
|
Участник форума
Регистрация: 28.07.2007
Сообщений: 177
С нами:
9888748
Репутация:
5
|
|
выпадающий список + сворачивание
какая процедура вызывает выпадающий список - 2?
и как сделать чтоб можно было сворачивать приложение?
C компонентом разобрлася ComboBox...но как добавить туда допустим еще вариантов 10 ..чтоб было можно выбрать..один из них
Последний раз редактировалось ufalog; 20.08.2008 в 21:43..
|
|
|
|
20.08.2008, 22:24
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Сообщение от ufalog
и как сделать чтоб можно было сворачивать приложение?
application.Minimize;
|
|
|
|
16.11.2008, 06:24
|
|
Новичок
Регистрация: 11.05.2008
Сообщений: 27
С нами:
9473694
Репутация:
0
|
|
Здравствуйте. У меня такой вот вопрос. Постараюсь написать понятнее.. 
Хочу сделать что-то типа накрутчика для сайтов... получается загружаю сайт.ru в webbrowser .
Код:
Webbrowser1.Navigate(сайт.ru);
Выискиваю все ссылки, которые есть на нём и записываю их в memo или ListBox.
Код:
for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do // Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i)); memo1.Lines.Add(Webbrowser1.OleObject.Document.Links.Item(i));
Дальше не знаю что мне делать, что б при загрузке любой ссылки из списка считалось, что я перешёл по ней с сайт.ru а не просто ввёл её в строку. Вот никак не получается это сделать.
Подсказывал мне кто-то что б использовал
Код:
WebBrowser1.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);
не помогает. Всё равно показывает, что вводил новую строку, а не перешёл с сайта 
Напишите пожалуйста что нужно сделать  |
|
|
|
11.07.2009, 14:14
|
|
Познающий
Регистрация: 11.07.2009
Сообщений: 83
С нами:
8860699
Репутация:
30
|
|
POST-запрос
Добролго времени суток, уважаемые форумчане.
У меня проблема с POST-запросом. Страница с которой работаю - http://wen.ru/gb/?uid=1&form=1
Пишу такой код
Получаю капчу
Код:
procedure TForm1.Button2Click(Sender: TObject); var Captcha:TMemoryStream; s,CapchaID, sec_cap:string; gif : TGifImage; begin gif := TGIFImage.Create; s:=idHTTP1.Get('http://wen.ru/gb/?uid='+Edit1.Text+'&form=1'); CapchaID:=Copy(s,pos('<img src="/secure/gif.php?',s)+length('<img src="/secure/gif.php?'),pos('"',Copy(s,pos('<img src="/secure/gif.php?',s)+length('<img src="/secure/gif.php?'),15))-1); sec_cap:=(Copy(CapchaID,pos(',',CapchaID)+1,length(CapchaID)-pos(',',CapchaID)+1)); captcha:=TMemoryStream.Create; idHTTP1.Get('http://wen.ru/secure/gif.php?'+CapchaID, captcha); captcha.SaveToFile('captcha.gif'); Image1.Picture.LoadFromFile('captcha.gif'); Captcha.Free; gif.Free; end;
жму на кнопку добавить
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
captcha, name, s, CapchaID, sec_cap : string;
params:tstringlist;
begin
s:=idHTTP1.Get('http://wen.ru/gb/?uid='+Edit1.Text+'&form=1');
CapchaID:=Copy(s,pos('<img src="/secure/gif.php?',s)+length('<img src="/secure/gif.php?'),pos('"',Copy(s,pos('<img src="/secure/gif.php?',s)+length('<img src="/secure/gif.php?'),15))-1);
sec_cap:=Copy(CapchaID,1, pos(',',CapchaID)-1);
captcha:=Edit2.Text;
name:=edit3.Text;
params:=TStringList.Create;
try
params.Add('author='+name);
params.Add('message='+Memo1.Lines.Text);
params.Add('tr=n');
params.Add('uid='+Edit1.Text);
params.Add('add=1');
params.Add('code='+captcha);
params.Add('cid='+sec_cap);
params.Add('lng=ru');
idhttp1.Post('http://wen.ru/gb/',params);
finally
params.free;
end;
end;
Но пост запрос почему не работает, хотя все параметры указаны верно(((( Помогите исправить пожалуйста |
|
|
|
14.08.2009, 10:08
|
|
Познающий
Регистрация: 13.06.2009
Сообщений: 32
С нами:
8901549
Репутация:
2
|
|
Как можноно с помощью wininet передать пост запросом бинарный файл на сервер??
|
|
|
|
25.09.2009, 19:57
|
|
Познающий
Регистрация: 13.06.2009
Сообщений: 32
С нами:
8901549
Репутация:
2
|
|
народ как сделать на винапи при пост запросе, передачу куков!???
|
|
|
|
30.09.2009, 15:45
|
|
Новичок
Регистрация: 01.07.2009
Сообщений: 2
С нами:
8874476
Репутация:
0
|
|
Создание VPN в delphi
Нужно создать VPN средствами Delphi, подскажите как? Желательно компонент и код! Заранее Спасибо!
|
|
|
|
09.02.2010, 19:18
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
С нами:
9030319
Репутация:
34
|
|
PHP код:
ICQClient1.UIN:=111111; // (Номер ICQ)
ICQClient1.Password:='12345'; // Пароль от этого номера
а как например Номер ICQ брать из edit1 и пароль из edit2? |
|
|
|
08.04.2010, 17:07
|
|
Новичок
Регистрация: 09.12.2009
Сообщений: 23
С нами:
8643320
Репутация:
0
|
|
Двухсвязний список
Помогите реализовать список двухсвязный который храница в самой программе пока работает пока и есть данные
Разработать справочник пассажирских поездов с полями: номер поезда, станции отправления и назначения, время в дороге, категория поезду. Реализовать подпрограммы поиска: 1) по станциям отправления и назначения, 2) по категории поезду
процедуры
добавление
удаление
поиск
печать(вывод на экран)
|
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 35 (пользователей: 0 , гостей: 35)
|
|
|
|
Похожие темы
Комбинированный вид
