[ 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. t04

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

    Joined:
    10 Jan 2007
    Messages:
    137
    Likes Received:
    40
    Reputations:
    8
    Archangelus, найди исходники игры "крестики-нолики" а затем просто передавай по протоколу irc данные.
    по этой ссылке ты найдешь компонент мс-рем"а для работы с irc
    _http://petools.org.ru/mirc_ms-rem.rar
     
  2. Dr.KoD

    Dr.KoD Elder - Старейшина

    Joined:
    1 Mar 2008
    Messages:
    68
    Likes Received:
    22
    Reputations:
    1
    t04, вот процедура выводит все ip адреса:
    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    type
      InAddr = Array[0..10] of PInAddr;
      TInAddr = ^InAddr;
    var
      Host: PHostEnt;
      pPtr: TInAddr;
      Buffer: Array[0..63] of char;
      i: Integer;
      Socket: TWSAData;
    begin
       ListBox1.Clear;
       WSAStartup( $101, Socket );
       GetHostName( Buffer, SizeOf( Buffer ) );
       Host := GetHostByName( buffer );
       if Host = nil then Exit;
       pPtr := TInAddr( Host^.h_addr_list );
       i := 0;
       while pPtr^[i] <> nil do
       begin
          ListBox1.Items.Add( inet_ntoa( pPtr^[i]^ ) );
          Inc( i );
       end;
       WSACleanup;
    end;
    Это, что что то из области фантастики? А сайт не имеет своего ip адреса?
    Мне больше всего понравилось тут то, что ты нам предлагаеш написать эту программу, не затратив ни каких своих усилий!!!
    Начинай писать сам, а потом выкладывай свой кодсюда, а мы уже в меру своих сил и возможностей тебе постараемся ответить.
    А для начала иди почитай книжки, авось в какойнибудь найдеш пример такой игры!!! :D
    AHTOLLlKA А, что тебе мешает подставить в post запрос, в тот код, который я тебе дал, то что тебе нужно?
     
    2 people like this.
  3. A2GIL

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

    Joined:
    31 Aug 2007
    Messages:
    84
    Likes Received:
    59
    Reputations:
    -3
    Так сложно сказать из-за чего именно происходит такая ошибка, потому что Делфи по разным причинам может выдавать такое. Есесно, что это не из-за неправильного кода-код правильный! Возможно причина даже в том, что криво поставлена Делфи или же проблемы с памятью
     
  4. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    Я встречал с похожей ошибкой. И возникала она также по непонятным причинам. Помогло только то, что удалил все файлы дельфы, даже из Common file после чего ставил дельфу. перезапускал комп. Потом уже запускал дельфу и ставил нужны екомпоненты и дополнения. В противном случае без перезагрузки первый запуск давал в дальнейшем хорошие глюки
     
    1 person likes this.
  5. Karapuziko

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

    Joined:
    20 Jan 2008
    Messages:
    32
    Likes Received:
    14
    Reputations:
    3
    Здравствуйте помогите решить:)
    (понимаю что это не решебник но все же буду очень признателен!)

    Вот несколько задач:(каждая из них отдельная!):

    1)Найти все делители натурального числа n.
    2)Вычислить (1+sin0,1)(1+sin0,2)(1+sin0,3)......(1+sin0,4)
    3)Написать программу, которая по номеру месяца выдает название следующего за ним месяца (при m=1 получаем февраль, 4 – май и т.д.).
    4)Грузовой автомобиль выехал из одного города в другой со скоростью v1 км/ч. Через t ч в этом же направлении выехал легковой автомобиль со скоростью v2 км/ч. Составить программу, определяющую, догонит ли легковой автомобиль грузовой через t1 ч после своего выезда.
    ====================
    Буду признателен спасибо:)
     
  6. A2GIL

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

    Joined:
    31 Aug 2007
    Messages:
    84
    Likes Received:
    59
    Reputations:
    -3
    2 Karapuziko :

    Задание 1 (~5 kb)
    Уточни второе задание! до каких пор там увеличивается аргумент синуса? всего 4 множителя?
    Задание 3 (~5 kb)
    Задание 4 (~5kb)

    2 [Dezzter] :

    Допиши в таймере это:

    Code:
     if  ProgressBar1.Position=ProgressBar1.Max then
      begin
       Form2.Show;
       Timer1.Enabled:=false;
      end;
     
    И вот это Timer1.Interval:=0; можешь убрать!

    P.S Вообще-то это не есть корректный способ! Нужно просто по окончании какого-то действия, которого ты иммитируешь с помощью ProgressBar1 уже писать Form1.Show. Но как бы там ни было это твоя прерогатива=)
    P.S.S Может у тебя проблема с самим пакетом Делфи? Может он не полный?
     
    #1606 A2GIL, 27 May 2008
    Last edited: 27 May 2008
  7. Dr.KoD

    Dr.KoD Elder - Старейшина

    Joined:
    1 Mar 2008
    Messages:
    68
    Likes Received:
    22
    Reputations:
    1
    [Dezzter] Вот держи:
    Code:
    procedure TForm1.Timer1Timer(Sender: TObject);
    var
    i:integer;
    begin
    i:=ProgressBar1.Max;
    ProgressBar1.Position := ProgressBar1.Position + 1;
    if ProgressBar1.Position = i then
    begin
    Timer1.Enabled:=False;
    Form2.ShowModal;
    end;
    end;
     
  8. Karapuziko

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

    Joined:
    20 Jan 2008
    Messages:
    32
    Likes Received:
    14
    Reputations:
    3
    Мне бы на паскале!(сорри сразу язык уточнить забыл)
     
    2 people like this.
  9. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    мдее =\
    тебе на паскале и давали, просто поменяй там пару строчек кода.
    ЗЫ Такие топики делают учеников ленивых
     
    1 person likes this.
  10. Dr.KoD

    Dr.KoD Elder - Старейшина

    Joined:
    1 Mar 2008
    Messages:
    68
    Likes Received:
    22
    Reputations:
    1
    Nightmarе
    Так на вскидку глянул одной прогой(пользовался идущей в комплекте с Autoit) и обнаружил два(поля) "TInfuEdit.UnicodeClass1" и TInfuEdit.UnicodeClass2, хз сам не пробовал выуживать пароль с этой проги, а разбираться ща времени нема ;)
     
  11. A2GIL

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

    Joined:
    31 Aug 2007
    Messages:
    84
    Likes Received:
    59
    Reputations:
    -3
    Nightmarе

    Code:
    function GetPasFromEdit(Wnd: HWND; var Text: string):boolean;
    var
      EditWnd: HWND;
    begin
      Result := False;
      EditWnd := FindWindowEx(Wnd, 0,'TEDIT', nil);
      if EditWnd = 0 then
        exit;
      SetLength(Text, SendMessage(EditWnd, WM_GETTEXTLENGTH, 0, 0)+1);
      SendMessage(EditWnd, WM_GETTEXT, length(Text), Integer(PChar(Text)));
      SetLength(Text, lStrLen(PChar(Text)));
    end;
    
    procedure TForm1.Timer1Timer(Sender: TObject);
    var
     MainWnd,Grp:Hwnd;
    begin
    MainWnd:=FindWindow(nil,'[COLOR=DarkRed]Здесь гаголовок главной формы[/COLOR]'); Хендл главного окна
    Grp:=FindWindowEx(MainWnd, 0,'[COLOR=DarkRed]TEDIT[/COLOR]', nil); //Хендл какого-то дочернего котрола
    if Grp<>0 then  begin
      GetPasFromEdit(Grp,pass);
     end;
     if Grp=0 then
       exit;
    end;

    P.S То что темно-красным можно узнать, ну например так:

    Code:
    procedure TForm1.Timer1Timer(Sender: TObject);
    var
     s: string;
     h: HWND;
     aName: array [0..255] of Char;
    
    begin
     h := WindowFromPoint(Mouse.CursorPos);
     SetLength(s, SendMessage(h, WM_GETTEXTLENGTH, 0, 0)+1);
     SendMessage(h, WM_GETTEXT, length(s), Integer(PChar(s)));
     SetLength(s, lStrLen(PChar(s)));
     GetClassName(h, aName, 256);
     Label1.Caption :='Заголовок : ' +s;
     Label2.Caption:='Класс : '+ aName;
    end;
    
     
  12. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Spy++ пробовал юзать?
     
  13. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Он входит в стандартный пакет MS Visual C++ 6.0 и выше
    ЗЫ
    http://rapidshare.com/files/118380465/SPYXX.rar.html
     
    2 people like this.
  14. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    а на что кричит?
     
  15. spyro

    spyro New Member

    Joined:
    19 Apr 2008
    Messages:
    16
    Likes Received:
    0
    Reputations:
    0
    Собираюсь приступить к изучению delphi. Не одскажите, с чего начать?
     
  16. Killerkod

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

    Joined:
    1 Aug 2007
    Messages:
    178
    Likes Received:
    113
    Reputations:
    0
    С покупки книги. Советую - Библия Делфи, автор Михаил Фленов.
     
  17. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    2 spyro Скачай Delphi World (онаже 5005 статей по делфи) Очень сильно поможет в начале. Это как бы в нагрузку со всяким книгах дополнительным.
     
  18. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    Делпи: отредактировал фаил в ResHacker, сохранил в формате Res, как теберь запаковать чтобы сделать фаил с расширение EXE?

    Конешно знаю что это нубский вопрос...
     
  19. Jes

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

    Joined:
    16 Apr 2007
    Messages:
    370
    Likes Received:
    391
    Reputations:
    34
    Compile Script - там где надо ,и Save as (win32 pe files)
     
  20. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    ???
     
Thread Status:
Not open for further replies.