спасибо , попробую так завернуть http.post(uri,'data[Contact][fname]' + ComboBox3.Items.Strings[random(ComboBox3.Items.Count)]); я использую рандомно из комбобокса названия , такой вариант правильный нет ? а тут что за переменная uri?
URI - адрес для пост запиту (URL... http://antichat.ru/login.php) і ти пробіл пропустив... fname] ' + Comb а і вроді би має бути random(ComboBox3.Items.Count-1)
Народ вот такая задачка.Короче имеется unit1,unit2,unit3,unit4. Вот код unit1-if edit1.text=('variant1') then begin case variants of 0:unit2-запустить. 1:unit3-запустить. Как это примерно реализовать?
чево???? ті питаешся запустить унит??? запускать нужно фукции... Code: uses unit2,unit3; if edit1.text=('variant1') then begin case variants of 0:funcInUnit2; 1:funcInUnit3; и я сомневаюсь что ті понимаеш что хочеш зделать)) розкажі подробности if edit1.text=('variant1') then begin case variants of 0:unit2-запустить. 1:unit3-запустить. или нужно запустить код между ’begin end.’ ? (на скільки я пам’ятаю він запускається при кожному зверненні до до функцій які належать цьому модулю... але не впевнений)
Тест делаю я.Я не знаю как запустить.В uses то у меня все прописано.Сначала, у меня идет проверка имени, ну if edit1.text=('variant1') then begin, дальше к примеру один из 3 unit`ов должен запустится.А как это сделать?
Надо через список прокси зайти на сайт и ещё нескольким ссылкам. Берём проксю, заходим на сайт1. if зашли на сайт1 then idhttp1.get('сайт2'); else берём следующую проксю У меня проблема с "зашли на сайт1" Как описать это?
(псевдокод) procedure proc(proxy:Tidproxy) idhttp1.proxy:=proxy; if pos('вітаємо у системі',http1.post('aaa.com/login.php','login=user1&password=1111'))<>0 then http1.get('aaa.com/me') else proc(GetNextProxy); end; не знаю чи зрозумієш... повторюю це псевдокод! в мене є програма яка тупо заходить на сайт із різних проксів.. можеш подивитись на код
Добрый день, я динамически создаю компоненту в потоке и мне нужно прореагировать на ее событие, не подскажете как это правильно сделать. Чтобы было понятнее что я пытаюсь сделать, вот куски кода Code: //это поток, OnNavigateComplete2 - событие которое должно вызываться компонентом WB Tnew = class(TThread) WB:TWebBrowser; procedure OnNavigateComplete2(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); protected procedure execute; override; end; procedure Tnew.execute; begin //... WB:=TWebBrowser.Create(nil); WB.OnNavigateComplete2:=OnNavigateComplete2; WB.Navigate('http://google.com'); end; procedure Tnew.OnNavigateComplete2(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin //здесь будет код который нужно выполнить после загрузки страницы в WB end; //вот так я вызываю поток thr:=Tnew.Create(true); thr.FreeOnTerminate:=false; thr.Resume; Поток так же пытался зациклить Code: while true do Application.ProcessMessages(); Эффект тот же
все ок. тільки не забуть знищити об’єкт потоку... а пліз покажеш робочий код ок? ато в мене є похожий але подія так ніколи і не генерується...
помогите нубу как сделать штоб откривалось другое "окно" на основной форме (извините не могу точно описать) привер на видео в архиве http://zalil.ru/30788440
Че думаешь делать кому-то нех видео твое качать? или ты коней впариваешь? )) Создаешь новую форму. File/New/Form И как ты там хочешь чтоб вылазала по кнопке или че... короче на событие Form2.Show;
вы меня не поняли =) новою форму открытть знаю как) вот ролик на ютубе http://www.youtube.com/watch?v=ASaZlJn9mTE
Ат дак в ручную прорисовывай )) Шучу. В сторону фрэймов копай. http://www.google.ru/search?q=delphi+%D1%84%D1%80%D1%8D%D0%B9%D0%BC%D1%8B&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:rufficial&client=firefox
С зацикливанием работает... но непонятно почему неотокрые компоненты в потоках на события реагируют тормозно, а на основном потоке норм. А некоторые типа батона и там и там реагируют быстро. С чем связано может быть, кто подскажет?
не зрозумів? форма у формі (MDI) чи просто панель поверх інших компонентів?? якщо панель то panel1.UpToFront//якось так... або в редакторі ставиш її найвище panel1.visible:=true; і назад panel1.visible:=false;