подскажите как оформить, чтобы данные брались рандомно из combobox1 при запросе к нему в combobox1 вбиты данные Jacob Michael Joshua Matthew Andrew Christopher и тд... хочу отправить форму по https, если вставить "+ combobox1.text" то береться только первая строка "Jacob" data.Add('fullname=' + combobox1.text); IdHTTP1.Post('https://www.site.com/register', Data);
Код: Code: randomize; data.Add('fullname=' + ComboBox1.Items.Strings[random(ComboBox1.Items.Count)]); На счет ssl (https) то вроде idhttp по дефолту не поддерживает его (тут я точно не знаю)
sToolBar.pas я в заблуждении Есть у кого этот файл? Перерыл весь инет ничего не нашел. Имеется файл sToolBar.dcu - на который ругается Delphi 2010 из за не совместимости версии, очень нужен именно sToolBar.pas файл, просто необходим. Буду очень благодарен тому, кто поможет с его поиском. Нашел вот это: _http://my-trac.assembla.com/ptstools/browser/%D0%9A%D0%BE%D0%BC%D0%BF%D0%BE%D0%BD%D0%B5%D0%BD%D1%82%D1%8B/Alpha_SKINS/sToolBar.pas но тоже не канает, версия не та =(
В чём проблема то? Возьми и скачай, для D2010 есть и для русских на халяву: ТУТ Но pas ты не найдёшь к тулбару, т.к. он не комплектуется, только dcu
Как добавить функцию переподключения интернета, ADSL модем, через определённое время. Тоесть вот чтобы его включить, а потом отключить... Просто мой знакомый программист пишет программу, и она должна отрубать интернет,а после определённого цикла опять включать его. так вот он не понимает как можно это сделать. Вот я подумал,может быть вы подскажите)
listbox Помогите доделать код: При нажатии на кнопку с листбокса удаляются все повторне элементы. PHP: for j:=0 to listbox1.Items.Count-1 do begin lbsn:=listbox1.Items[j]; hide1:=false; for l:=0 to listbox1.Items.Count-1 do begin lbso:=listbox1.Items[l]; if (lbso = lbsn) and (hide1=true) then begin mas[j]:=l; r:=r+1; end else if (lbso = lbsn) and (hide1=false) then hide1:=true; end; end; b:=r; for u:=1 to r do begin listbox1.Items.Delete(mas[b]); b:=b-1; end;
Самое простое вызывай 2 соманды для командного процессора Code: @echo Disconnect... @rasdial NAME /DISCONNECT @echo Connect... @rasdial NAME login pass
не как не разберусь с массивом. помогите плиз... Вообщем есть memo1, в нем список сайтов, как осуществить переход по каждому сайту из этого списка при нажатии but1? или какую переменную(задейственную с массивом) можно воткнуть сюда чтоб осуществлялся последовательный переход по каждой url ? Заранее Благодарен
Просто ответ в любой убогой книжке есть по дельфи и в гугле за 5 сек ищется, да и самому не сложно догадаться... а ты уже сутки ждёшь... Самому не стыдно? html:=IdHTTP1.Get('http://mysite.ru'+Memo1.Lines.Strings[N]); N от 0 до Memo1.Lines.Count-1
Хочу заставить свою прогу работать через сокс5. подскажите как оформить? тут код с ошибками. суть в следущем взять покси из файла proxy.txt а в нем 98.206.175.71:27977 98.209.198.100:34519 если прокс рабочий то посылается пост запрос, если нет берем новый прокс.. PHP: procedure TForm1.Button2Click(Sender: TObject); var ProxyList:Tstringlist; i:integer; ProxyServer,ProxyPort:string; begin ProxyList:=TStringList.Create; try ProxyList.LoadFromFile('proxy.txt'); except ShowMessage('Создайте файл proxy.txt'); end; if ProxyList.Text='' then begin ShowMessage ('Список пуст'); exit; end; begin ProxyServer:=Copy(ProxyList[i],1,Pos(':',ProxyList[i])-1); ProxyPort:=Copy(ProxyList[i],Pos(':',ProxyList[i])+1,Length(ProxyList[i])-Pos(':',ProxyList[i])); end; IdSocksInfo1.Version:=svSocks5; IdSocksInfo1.Host:= ProxyServer; IdSocksInfo1.Port:=ProxyPort; IdSocksInfo1.Authentication:= saNoAuthentication; IdSSLIOHandlerSocketOpenSSL1.TransparentProxy:=IdSocksInfo1; IdHTTP1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1; try IdHTTP1.Post('http://ya.ru'); except if pos('ya.ru')<>0 then begin Label1.caption:='Loading...'; end; else if pos('')>0 then Begin Label1.caption:='Proxy Dead, load new proxy...'; End end; end;
мне нужно слово искать в мемо, а искать по разным строкам не удобно, неподскажете как склеить, точнее какой тип использовать.Символов гдето 10к.
