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

    DDnik New Member

    Joined:
    4 Oct 2011
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    Всем привет,ребят кто подскажет,как создать брут для сайта(желательно многопоточный),без прокси/socks,есть где-нибудь очень подробный гайд?
     
  2. Rastamanka

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

    Joined:
    26 Nov 2008
    Messages:
    429
    Likes Received:
    11
    Reputations:
    7
    Добрый день. Подскажите.
    Использую Indy в паре с CookieManager и IdSSLOpenSSL.
    Делаю авторизацию на вк. Но вот проблема. Куки все получаю кроме тех что происходят при редиректе. В чем проблема и как решать? Хотя при просмотре idhtp1.Response.RawHeaders.GetText данные куки видны. Не ужели придется самому парсить их ручками?
     
  3. FunOfGun

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

    Joined:
    5 Sep 2012
    Messages:
    388
    Likes Received:
    72
    Reputations:
    124
    Быть может оно: http://grabberz.com/showthread.php?t=24663
     
  4. VIP 72

    VIP 72 New Member

    Joined:
    29 Apr 2012
    Messages:
    7
    Likes Received:
    0
    Reputations:
    0
    Вопрос такой, у мя делфи 7 надо создать ICQ бота, TICQClient скачал все есть, надо всего лишь доработать код:
    procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
    var
    icq: cardinal;
    begin
    icq := StrToInt(UIN);
    Memo1.Lines.Add(UIN + ': ' + Msg);
    if Msg='Привет' then
    ICQClient1.SendMessage(icq,'Привет')
    end;

    end.
    Как вы видите это когда ты посылаешь ему привет он тебе отвчает привет
    Надо начало, ну подключение форма и все такое, и куда вставить код обьясните мой)
    Там будут левелы пару тройку, 2 едита для ввода пасса и уина, кнопки буттоны подкл и откл и одно мемо и соответственно TICQ клиент надо с ЭТИМИ компонентами сделать бота, помогите, прошу не ругать, т.к. я нуб в программировании
     
  5. turnikman000

    turnikman000 Banned

    Joined:
    27 May 2012
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    как сохранить исходник? в деллфи у меня не получается
     
  6. VIP 72

    VIP 72 New Member

    Joined:
    29 Apr 2012
    Messages:
    7
    Likes Received:
    0
    Reputations:
    0
    turnikman000, как я помню вроде нужно нажать сохранить или сохранить как... в меню
     
  7. Rastamanka

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

    Joined:
    26 Nov 2008
    Messages:
    429
    Likes Received:
    11
    Reputations:
    7
    Подскажите какой компонент использовать. Чтобы было что-то типа Downloader'a.
    1) Имя файла
    2) Процент скачивания
    3) Статус

    Скачивание и т.д. соответственно через потоки.
     
  8. AtomoS

    AtomoS New Member

    Joined:
    17 Feb 2010
    Messages:
    88
    Likes Received:
    1
    Reputations:
    0
    vk auth

    всем привет. помоги ребят с авторизацией вконтакте.
    пробовал много различных вариантов - ни один не работает.

    нужно лишь войти под логином и паролем и вывести Имя и Фамилию со страницы..

    п.с. соль в том что хочу получить список приложений и возможность их открытия прямо в приложении.

    люблю игры)
     
    #9308 AtomoS, 13 Oct 2012
    Last edited: 14 Oct 2012
  9. Winexcel

    Winexcel New Member

    Joined:
    26 Sep 2012
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Ребят такой вопросик вот,есть код позволяюший поставить цвет фона в RihcEdit который выделен курсором вот сам код:
    он выделяет только то что отмечено курсором а хотелось бы выделить всю строчку зная её номер пример:
    RichEdit1.lines.strings[1];
    Как такое зделать помогите..
     
  10. Белый Ворон

    Joined:
    7 Oct 2012
    Messages:
    46
    Likes Received:
    3
    Reputations:
    0
    Какой протокол то?
    Если HTTP то обычный TIdHttp можно взять.
     
  11. boby

    boby New Member

    Joined:
    1 Dec 2011
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    Вопрос по кодировкам

    Где то наткнулся на решение вопроса автоматического определения и декодировния кодировок но потерял линк , дефолтные способы уже вроде как устарели я имею ввиду дельфи варианты типо Utf8ToAnsi.

    Хотелось бы в автоматическом режиме декодировать любую кодировку китайский ли язык или английский или украинский или какой либо другой. Что бы не было крякозябр и не парится с вычислением кодировки а потом перекодировкой и прочей мутью раз есть универсальный способ.

    Потому вопрос - как сделать выше изложенное - я новичек - если описание данной возможности длительное - просто ткните носом на урл или топик .
    Спасибо.
     
    #9311 boby, 20 Oct 2012
    Last edited: 20 Oct 2012
  12. Protocoler

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

    Joined:
    10 Oct 2012
    Messages:
    51
    Likes Received:
    54
    Reputations:
    81
    Как запустить приложение в автозагрузку на Windows 7 ?

    Попробовал так, но не работает.
    HKLM тоже не работает.

    Code:
    Reg:=TRegistry.Create; 
    Reg.RootKey:=HKEY_LOCAL_MACHINE; 
    Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true); 
    Reg.WriteString('baner','C:\Windows\baner.exe');
    Reg.CloseKey; 
    Reg.Free;
     
     
  13. Белый Ворон

    Joined:
    7 Oct 2012
    Messages:
    46
    Likes Received:
    3
    Reputations:
    0
    1) не юзать дельфи. или если все таки юзать то хотя бы версию от 2009.
    2) читать кодировку из заголовков:
    charset=windows-1251
    этот функционал можно реализовать в своем классе HTTP-клиента.
     
  14. boby

    boby New Member

    Joined:
    1 Dec 2011
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    Понимаеш мне как новичку в програмированнии, дельфи в самый раз из за дружественного интерфейса , использую хе 3 версию , вот в версии от 2009 года и появилась возмоность автоматом определять и декодировать кодировки от различных шрифтов а в хе вариантах вроде как и продвинутый вариант данной возмоности- но как написал выше я потерял линк на описание как это сделать - там всего то одна пременная вставляется и все дело автоматом определяется и обрабатывается.Блин не сохранил закаладку ((((((( просто я хочу написать простенький парсер контента что бы на автомате переводил с разных языков , а для такого парсера очень бы пригодилось возможность автоматическойго определения и декодирования шрифтов....
     
    #9314 boby, 22 Oct 2012
    Last edited: 22 Oct 2012
  15. shadowrun

    shadowrun Banned

    Joined:
    29 Aug 2010
    Messages:
    842
    Likes Received:
    170
    Reputations:
    84
    2boby, для начала советую прочесть, что такое кодировки вообще, для чего их используют, и наиболее распространенные. А то, боюсь, "простенький парсер контента что бы на автомате переводил с разных языков " может не получиться :)
     
  16. boby

    boby New Member

    Joined:
    1 Dec 2011
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    А кто говорил что будет легко ) просто наткнулся сразу же на проблему крякозябр из за разных шрифтов - если есть вариант материала понятного для новичка буду благодарен за ссылку на материал , пока ничего путного не нашел по теме .
    Распарсивать заголовок выдирать оттуда кодировку потом декодировать это муторно , тем более что например если будет несколько источников контента например китайский , английский а попадеться еще и украинский да еще и кодировка не будет в заголовке указана, те не определена то такой пасер не будет отображать шрифт в родной кодировке а как следствие и работать дальше с таким контентом невозмоно там перевести на руский итп.Потому нужно какое то универсальное решение.
    Может есть для дельфи какие то готовые библиотеки по данному вопросу?
     
    #9316 boby, 22 Oct 2012
    Last edited: 22 Oct 2012
  17. mironich

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

    Joined:
    27 Feb 2011
    Messages:
    733
    Likes Received:
    73
    Reputations:
    19
    Есть библиотека обертка для WinApi функц. работы с кодировками, там и функц. автопределения была.
    От рус. разраба, название не знаю.
    Совет перегоняй все в юникод после получения стр. это убавит проблем.
    Скорее всего прав не хватает от админа запускай.
    Что за бред наркомана... Устарели....
    Просто функц. заточена под определенную кодировку.
    Если юзать синапс то можно прогресс бар прикрутить, пример в гугле в блоге "Delphi for internet" как-то так, там отлавливать событие сокета надо OnHibernate как-то так, и на оффе синапса пример есть.
     
    #9317 mironich, 22 Oct 2012
    Last edited: 22 Oct 2012
  18. Белый Ворон

    Joined:
    7 Oct 2012
    Messages:
    46
    Likes Received:
    3
    Reputations:
    0
    boby раз , два , и еще можно многое найти через гугл по запросам "Delphi 2009 кодировка" или "Delphi 2009 encoding"

    это не бред наркомана. они действительно давно морально устарели. попробуйте поиспользовать более актуальные средства разработки, такие как Java/C#/Delphi 2009+. тогда эти функции покажутся анахронизмом.

    Ну вот зачем? Скажите мне зачем, человеку чтобы решить простейшую задачу, ты советуешь скачивать и изучать левую (хотя и неплохую) либу? В стандартной поставке есть Indy, и по ней есть документация, у нее намного больше и разработчиков и пользователей. не говоря уже о функционале, и в целом более удачной объектно-ориентированной архитектуре, и более вменяемому API. И по ней уже многое написано и спрошено в интернете.
     
  19. TRAMPL1N

    TRAMPL1N New Member

    Joined:
    12 Apr 2012
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    На форме имеются 10 батонов в виде цифр, 5 эдитов и ещё 2 батона. Так вот... вот эти 10 батонов в виде цифр, работают по принципу Edit1.Text:=Edit1.Text+'1';,а эдитов 5. Как сделать, чтобы после определенного набора символов в Edit'e , он автоматически переключался на другой Edit? Но даже если я сделаю автоматический переход м.у. Edit'ами цифры всё равно буду добавляться в Edit1. Какой код должен быть?
    P.S. На всякий случай, вот сорцы.
     
  20. alexey-m

    alexey-m Elder - Старейшина

    Joined:
    15 Jul 2009
    Messages:
    518
    Likes Received:
    100
    Reputations:
    37
    эдитам event'ax на событие OnChange присвой процу editOnChange, и каждому Edit1.Tag:= 2, Edit2.Tag:= 3, ...
    Code:
    procedure editOnChange(Sender: TObject);
    var
      Str: String;
    begin
      Str:= TEdit(Sender).Text;
      if yourCheck(Str) then
        TEdit(FindComponent(Format('Edit%d', [TEdit(Sender).Tag]))).SetFocus;
    end;
    
    тогда, если условие проверки yourCheck вернет истину, то фокус будет переведен на следующий EditX
    ps. писал на память, так что могут быть ошибки, проверяй...
     
Thread Status:
Not open for further replies.