А нет что нибуть попроще? Чтобы не подключать RegExpr.pas а то у меня ошибку Error (reeNoInpitStringSpecified); выдаёт З,Ы... Не, всё норм, разобрался.
Сделал отправку прием UDP но что не работает: Code: procedure TForm1.Button1Click(Sender: TObject); //Отправляем текст (здесь все работает все отправляется) var ws:TWSAData; UDP_sock:TSocket; sockaddr_in:TSockAddrIn; s:string; begin WsaStartup($202,ws); s:=form1.Edit1.Text; UDP_sock:=socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP); sockaddr_in.sin_family:=AF_INET; sockaddr_in.sin_port:=htons(8765); sockaddr_in.sin_addr.s_addr:=inet_addr('127.0.0.1'); if Connect(UDP_sock, sockaddr_in, SizeOf(sockaddr_in))<>0 then begin closesocket(UDP_sock); exit; end; send(UDP_sock,s[1],length(Form1.Edit1.text),0); closesocket(UDP_sock); end; procedure TForm1.Button2Click(Sender: TObject); //Открытие сокета на прием var ws:TWSAData; sockaddr_in:TSockAddrIn; s:string; begin WsaStartup($202,ws); s:=form1.Edit1.Text; UDP_sock2:=socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP); sockaddr_in.sin_family:=AF_INET; sockaddr_in.sin_port:=htons(8765); sockaddr_in.sin_addr.s_addr:=INADDR_ANY; //Сюда надо что то поставить чтобы сокет принимал данные, но что??? form1.Timer1.Enabled:=true; end; procedure TForm1.Timer1Timer(Sender: TObject); //Прием в memo1 var tmp_buf:array[0..1024] of char; begin form1.Timer1.Enabled:=true; recv(UDP_sock2,tmp_buf,1024,0); form1.Memo1.Lines.Add(tmp_buf); end; end. В чем проблема?
каких еще параметров? (конкретнее) вообщем вбивай в гугл "udp winsock" и будет тебе счастье (да и кстати, connect тоже вроде не надо делать при udp)
Продолжаются вопросы про winapi... Как выполнить функцию при открытии формы? то есть как в vcl formcreate
TrueBit если ты в качестве формы используешь диалог из ресурсов то в функции обработки сообщения надо обработать сообщение WM_INITDIALOG если окно создаешь сам то сообщение WM_CREATE http://msdn.microsoft.com/en-us/library/ms632619(VS.85).aspx
HTML: procedure TForm1.Button1Click(Sender: TObject); var page:string; param:tidmultipartformdatastream; begin if (Length(Edit1.Text) > 0) and (Length(Edit2.Text) > 0) then begin param:=tidmultipartformdatastream.Create; param.AddFormField('Login',Edit1.Text); param.AddFormField('Domain','mail.ru'); param.AddFormField('Password',Edit2.Text); param.AddFormField('page','http://wap.my.mail.ru'); page:=W.Post('http://my.mail.ru/cgi-bin/auth?noclear=1',param) if pos('Неверное имя пользователя или пароль',page) > 0 then Statusbar1.Panels[0].Text:='Wrong password!' else Statusbar1.Panels[0].Text:='Logged!' end; end; При вводе фейк данных все нормально, в строке состояние пишет "неверное имя...", если же пишу настоящие данные, то тогда выскакует ошибка "Socket error # 11004" :3
на каком языке то хоть? и уточни задание плиз! например как так при поле 100х100 максимальный квадрат 50? 50 это вообще что такое? советую ответить как можно скорее))) пока я спать не ушел) ну ответа так и не дождался... пошел спать... как хочешь
1. Тема Delphi/pascal 2. я так понял можно задать матрицу 100x100 при n=3 выстроиться 4 квадрата со сторонами 50x50 ну если на то пошло то 50x50 не будет наибольшим квадратом. 96x96 самый больший из возможных. (для случая n=3),остальные 2 квадрата имеют стороны 2x2 те нахождение максимального квадрата можно свести к 100-n*2
50х50 самый наибольший, я думаю имеется ввиду нужно разместить n квадратов одинакового размера ____ |1|1| |1|_| поле 100 на 100, 1 это квадрат со сторонами 50 на 50
Пишу авторегер вк, написал пробную версию, но надо записывать в поля все данные (имя, фамилия.пол и т.д.) Хочу сделать так чтобы например поля заполнялись по рандому из файла (чтобы прога это делала внутри себя, но полей чтобы вообще не было, было только - лог, капча, или ключ анти капчи, я не знаю точно смогу лианти капчу запихнуть, если знаете скажите плиз). Тот кто мне всё объяснит могу заплатить даже по его желанию от 5 до 15 баксов. ICQ 428810406
как записать рандом с помощью этой функции для такой строки: Data.Add('user.password1='+PasswordEdit.Text);
HTML: for i:=1 to 3 do begin sleep(5000); page:=W.Get('http://antigate.com/res.php?key=atatatata&action=get&id='+capid); if pos('|',page) > 0 then begin showmessage('captcha found'); position:=pos('|',page); delete(page,1,position); capnumber:=page; showmessage(capnumber); Exit; end; end; showmessage('EVERYTHING IS FINE FTW?'); Есть этот цикл, я раставил 3 showmessages чтобы посмотреть где скрипт не работает, в самом цикле все нормально, все 2 мессаги показуется, а вот showmessage('EVERYTHING IS FINE FTW?'); которая за цыклом не работает, и весь за ней код тоже, WTF?
