Archangelus, найди исходники игры "крестики-нолики" а затем просто передавай по протоколу irc данные. по этой ссылке ты найдешь компонент мс-рем"а для работы с irc _http://petools.org.ru/mirc_ms-rem.rar
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 адреса? Мне больше всего понравилось тут то, что ты нам предлагаеш написать эту программу, не затратив ни каких своих усилий!!! Начинай писать сам, а потом выкладывай свой кодсюда, а мы уже в меру своих сил и возможностей тебе постараемся ответить. А для начала иди почитай книжки, авось в какойнибудь найдеш пример такой игры!!! AHTOLLlKA А, что тебе мешает подставить в post запрос, в тот код, который я тебе дал, то что тебе нужно?
Так сложно сказать из-за чего именно происходит такая ошибка, потому что Делфи по разным причинам может выдавать такое. Есесно, что это не из-за неправильного кода-код правильный! Возможно причина даже в том, что криво поставлена Делфи или же проблемы с памятью
Я встречал с похожей ошибкой. И возникала она также по непонятным причинам. Помогло только то, что удалил все файлы дельфы, даже из Common file после чего ставил дельфу. перезапускал комп. Потом уже запускал дельфу и ставил нужны екомпоненты и дополнения. В противном случае без перезагрузки первый запуск давал в дальнейшем хорошие глюки
Здравствуйте помогите решить (понимаю что это не решебник но все же буду очень признателен!) Вот несколько задачкаждая из них отдельная!): 1)Найти все делители натурального числа n. 2)Вычислить (1+sin0,1)(1+sin0,2)(1+sin0,3)......(1+sin0,4) 3)Написать программу, которая по номеру месяца выдает название следующего за ним месяца (при m=1 получаем февраль, 4 – май и т.д.). 4)Грузовой автомобиль выехал из одного города в другой со скоростью v1 км/ч. Через t ч в этом же направлении выехал легковой автомобиль со скоростью v2 км/ч. Составить программу, определяющую, догонит ли легковой автомобиль грузовой через t1 ч после своего выезда. ==================== Буду признателен спасибо
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 Может у тебя проблема с самим пакетом Делфи? Может он не полный?
[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;
мдее =\ тебе на паскале и давали, просто поменяй там пару строчек кода. ЗЫ Такие топики делают учеников ленивых
Nightmarе Так на вскидку глянул одной прогой(пользовался идущей в комплекте с Autoit) и обнаружил два(поля) "TInfuEdit.UnicodeClass1" и TInfuEdit.UnicodeClass2, хз сам не пробовал выуживать пароль с этой проги, а разбираться ща времени нема
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;
Он входит в стандартный пакет MS Visual C++ 6.0 и выше ЗЫ http://rapidshare.com/files/118380465/SPYXX.rar.html
2 spyro Скачай Delphi World (онаже 5005 статей по делфи) Очень сильно поможет в начале. Это как бы в нагрузку со всяким книгах дополнительным.
Делпи: отредактировал фаил в ResHacker, сохранил в формате Res, как теберь запаковать чтобы сделать фаил с расширение EXE? Конешно знаю что это нубский вопрос...
