[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. xanter

    xanter New Member

    Joined:
    22 Dec 2009
    Messages:
    27
    Likes Received:
    0
    Reputations:
    0
    спасибо , попробую так завернуть :)

    http.post(uri,'data[Contact][fname]' + ComboBox3.Items.Strings[random(ComboBox3.Items.Count)]);

    я использую рандомно из комбобокса названия , такой вариант правильный нет ? а тут что за переменная uri?
     
  2. ADR-007

    ADR-007 Member

    Joined:
    12 Jul 2010
    Messages:
    218
    Likes Received:
    9
    Reputations:
    0
    URI - адрес для пост запиту (URL... http://antichat.ru/login.php)
    і ти пробіл пропустив...
    fname] ' + Comb

    а і вроді би має бути random(ComboBox3.Items.Count-1)
     
  3. KoF31n

    KoF31n New Member

    Joined:
    29 Nov 2010
    Messages:
    49
    Likes Received:
    1
    Reputations:
    0
    Народ вот такая задачка.Короче имеется unit1,unit2,unit3,unit4.
    Вот код unit1-if edit1.text=('variant1') then begin
    case variants of
    0:unit2-запустить.
    1:unit3-запустить.
    Как это примерно реализовать? :confused:
     
    #8063 KoF31n, 2 Apr 2011
    Last edited: 2 Apr 2011
  4. ADR-007

    ADR-007 Member

    Joined:
    12 Jul 2010
    Messages:
    218
    Likes Received:
    9
    Reputations:
    0
    чево????
    ті питаешся запустить унит???
    запускать нужно фукции...

    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.’ ? (на скільки я пам’ятаю він запускається при кожному зверненні до до функцій які належать цьому модулю... але не впевнений)
     
  5. ADR-007

    ADR-007 Member

    Joined:
    12 Jul 2010
    Messages:
    218
    Likes Received:
    9
    Reputations:
    0
    пожалуста))
     
  6. KoF31n

    KoF31n New Member

    Joined:
    29 Nov 2010
    Messages:
    49
    Likes Received:
    1
    Reputations:
    0
    Тест делаю я.Я не знаю как запустить.В uses то у меня все прописано.Сначала, у меня идет проверка имени, ну if edit1.text=('variant1') then begin, дальше к примеру один из 3 unit`ов должен запустится.А как это сделать? :confused:
     
  7. Chapay10

    Chapay10 New Member

    Joined:
    22 Nov 2010
    Messages:
    26
    Likes Received:
    4
    Reputations:
    0
    Надо через список прокси зайти на сайт и ещё нескольким ссылкам.

    Берём проксю, заходим на сайт1.

    if зашли на сайт1 then
    idhttp1.get('сайт2');
    else
    берём следующую проксю

    У меня проблема с "зашли на сайт1"
    Как описать это?
     
  8. ADR-007

    ADR-007 Member

    Joined:
    12 Jul 2010
    Messages:
    218
    Likes Received:
    9
    Reputations:
    0
    покажи код unit2 unit3...
     
  9. ADR-007

    ADR-007 Member

    Joined:
    12 Jul 2010
    Messages:
    218
    Likes Received:
    9
    Reputations:
    0
    (псевдокод)
    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;

    не знаю чи зрозумієш... повторюю це псевдокод!

    в мене є програма яка тупо заходить на сайт із різних проксів.. можеш подивитись на код
     
    #8069 ADR-007, 4 Apr 2011
    Last edited: 4 Apr 2011
  10. 2pick

    2pick Elder - Старейшина

    Joined:
    17 Mar 2007
    Messages:
    117
    Likes Received:
    39
    Reputations:
    2
    Добрый день,
    я динамически создаю компоненту в потоке и мне нужно прореагировать на ее событие, не подскажете как это правильно сделать. Чтобы было понятнее что я пытаюсь сделать, вот куски кода
    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();
    Эффект тот же
     
    #8070 2pick, 4 Apr 2011
    Last edited: 4 Apr 2011
  11. ADR-007

    ADR-007 Member

    Joined:
    12 Jul 2010
    Messages:
    218
    Likes Received:
    9
    Reputations:
    0
    все ок. тільки не забуть знищити об’єкт потоку...

    а пліз покажеш робочий код ок? ато в мене є похожий але подія так ніколи і не генерується...
     
    #8071 ADR-007, 4 Apr 2011
    Last edited: 4 Apr 2011
  12. 2pick

    2pick Elder - Старейшина

    Joined:
    17 Mar 2007
    Messages:
    117
    Likes Received:
    39
    Reputations:
    2
    Как его защитить то?
    И вообще по русски нельзя писать? Я половину ток понимю :D
     
  13. 4ipolino

    4ipolino New Member

    Joined:
    24 Dec 2010
    Messages:
    27
    Likes Received:
    0
    Reputations:
    0
    помогите нубу
    как сделать штоб откривалось другое "окно" на основной форме (извините не могу точно описать) привер на видео в архиве http://zalil.ru/30788440
     
  14. 2pick

    2pick Elder - Старейшина

    Joined:
    17 Mar 2007
    Messages:
    117
    Likes Received:
    39
    Reputations:
    2
    Че думаешь делать кому-то нех видео твое качать? или ты коней впариваешь? :)))

    Создаешь новую форму. File/New/Form
    И как ты там хочешь чтоб вылазала по кнопке или че... короче на событие Form2.Show;
     
  15. DooD

    DooD Elder - Старейшина

    Joined:
    30 Sep 2010
    Messages:
    1,168
    Likes Received:
    450
    Reputations:
    288
    form2.show;
    ?
     
  16. 4ipolino

    4ipolino New Member

    Joined:
    24 Dec 2010
    Messages:
    27
    Likes Received:
    0
    Reputations:
    0
    вы меня не поняли =) новою форму открытть знаю как)
    вот ролик на ютубе http://www.youtube.com/watch?v=ASaZlJn9mTE
     
  17. 2pick

    2pick Elder - Старейшина

    Joined:
    17 Mar 2007
    Messages:
    117
    Likes Received:
    39
    Reputations:
    2
    Ат дак в ручную прорисовывай :)))
    Шучу. В сторону фрэймов копай.
    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:ru:eek:fficial&client=firefox
     
    #8077 2pick, 4 Apr 2011
    Last edited: 4 Apr 2011
  18. 2pick

    2pick Elder - Старейшина

    Joined:
    17 Mar 2007
    Messages:
    117
    Likes Received:
    39
    Reputations:
    2
    С зацикливанием работает... но непонятно почему неотокрые компоненты в потоках на события реагируют тормозно, а на основном потоке норм.
    А некоторые типа батона и там и там реагируют быстро. С чем связано может быть, кто подскажет?
     
  19. ADR-007

    ADR-007 Member

    Joined:
    12 Jul 2010
    Messages:
    218
    Likes Received:
    9
    Reputations:
    0
    не зрозумів? форма у формі (MDI) чи просто панель поверх інших компонентів??

    якщо панель то
    panel1.UpToFront//якось так... або в редакторі ставиш її найвище
    panel1.visible:=true;

    і назад
    panel1.visible:=false;
     
    #8079 ADR-007, 4 Apr 2011
    Last edited: 4 Apr 2011
  20. 4ipolino

    4ipolino New Member

    Joined:
    24 Dec 2010
    Messages:
    27
    Likes Received:
    0
    Reputations:
    0
    как заставить компонент ComboBox читать строки из файла как на скрине [​IMG]
     
Thread Status:
Not open for further replies.