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

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

    Joined:
    19 Aug 2005
    Messages:
    100
    Likes Received:
    33
    Reputations:
    0
    s.p.a.m
    Code:
    procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    begin
    showmessage(URL);
    end;
    
     
  2. Djezul

    Djezul New Member

    Joined:
    8 Dec 2008
    Messages:
    43
    Likes Received:
    2
    Reputations:
    0
    ZET36 , спасибо!
     
  3. FindeR

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

    Joined:
    15 Nov 2006
    Messages:
    623
    Likes Received:
    138
    Reputations:
    20
    Кинь пару кнопок и listbox
    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    var
    D:dword;
    i,n:integer;
    
    begin
    D:=GetLogicalDrives;
    i:= 1; n:= Ord('A');
    while i > 0 do begin
     if (D and i) <> 0 then
     ListBox1.Items.Add(Chr(n));
     Inc(n);
     i:= i SHL 1;
     End;
    end;
    Так мы в listbox выведем все диски, которые у нас есть
    Code:
    procedure TForm1.Button2Click(Sender: TObject);
    var
    i:integer;
    Disk: PAnsiChar;
    SerialNum: dword;
    VName, FSName: array [0..255] of char;
    MaxNameL,FSFlags:dword;
    
    begin
     for i:=1 to listbox1.Items.Count-1 do begin
    Disk:=PChar(listbox1.Items[i]);
    if GetVolumeInformation(PChar(Disk + ':\'),
    VName, SizeOf(VName),
    @SerialNum, MaxNameL, FSFlags, FSName, SizeOf(FSName)) then
    Showmessage('Диск:'+Disk+#13+'Файловая система: '+FSName +#13+ 'Имя тома: ' + VName + #13+ 'Максимальная длина имени файла: '+IntToStr(MaxNameL)+#13+ 'Флаги фс: '+IntToStr(FSFlags));
    end;
    end;
    Терь пробежимся по всем дискам, показывая их свойства мессагой.

    Для определения типа юзаем GetDriveType
    К примеру
    Code:
    {функция определения типа устройства}
    function GetD(Drive: String): String;
    var
    DType : uInt;
    begin
      DType := GetDriveType(PChar(Drive));
      case DType of
        0: Result := Неизвестный';
        1: Result := 'Неверный корневой путь';
          Drive_Removable: Result := 'Съемный';
          Drive_Fixed: Result := 'Постоянный';
          Drive_Remote: Result := 'Внешний';
          Drive_CDROM: Result := 'Привод CD';
          Drive_RamDisk: Result := 'Диск RAM'
        else Result := 'хз :)';
      end;
    end;
    
    {использование функции}
    ...
    Showmessage(GetD('A:\'));
    ...
    
    Не забудь ставить :\ :)/) или : после буквы диска, синтаксис требует указывать путь к корню данного диска
     
    #2823 FindeR, 2 Mar 2009
    Last edited: 2 Mar 2009
    1 person likes this.
  4. sA21

    sA21 New Member

    Joined:
    20 Feb 2009
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    Help

    Yvojaemei hakire :)

    sorry za russkie english..


    podkajete pojalusta , kak ja magu dostat Email , Q polzevatela vmIRCe ..


    ymina est evo Q account , kak ja magu dostat evo Email ?


    Blogadaru za pomosh. :rolleyes:
     
  5. s.p.a.m

    s.p.a.m Banned

    Joined:
    26 Jan 2009
    Messages:
    6
    Likes Received:
    2
    Reputations:
    0
    Вообщем у меня есть сайт.Я пишу прогу для регистрации на нём.После реги мне нужно авторизоваться на сайте с помощью этой проги, а потом уже будучи залогиненым можно будет совершать всякие действия...но это не так важно.Главное мне нужно сделать регистрацию на сайте.Регистрация с капчёй, страница на которой форма регистрации new_user.php а обработчик реги страница reg.php. Вся проблема в том что для реги должны быть включёнными кукисы, но я с ними ниразу не работал поэтому прошу вашей помощи.Пожалуйста выложите пример работы куков и idhttp.
    ps в инете ничё не нашел...
     
  6. Djezul

    Djezul New Member

    Joined:
    8 Dec 2008
    Messages:
    43
    Likes Received:
    2
    Reputations:
    0
    s.p.a.m, не тупи , извини конечно , Это тема по Делфи и Паскалю , причём тут PHp и рега на сайте ? О_О
     
  7. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    s.p.a.m зас инди уже и так хранит в себе куки. А вообще юзай модуль WinInet - там всё просто и инфы по инету много
     
  8. s.p.a.m

    s.p.a.m Banned

    Joined:
    26 Jan 2009
    Messages:
    6
    Likes Received:
    2
    Reputations:
    0
    Ну тогда мне нужно пример post запроса на инди
    Всё что я находил в инете не работает.
    И ещё не важно какая версия инди или нужна 10?
     
    1 person likes this.
  9. AlexTheC0d3r

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

    Joined:
    25 Jul 2008
    Messages:
    388
    Likes Received:
    179
    Reputations:
    18

    дело в том, что до настоящего момента IdHTTP был компонентом Delphi
     
  10. Maxxxtri23

    Maxxxtri23 New Member

    Joined:
    20 Dec 2008
    Messages:
    76
    Likes Received:
    1
    Reputations:
    0
    Есть у меня memo и Edit так вот в мемо есть несколько строк, так вот как мне сделать чтобы допустим значение 3 строки в мемо присвоилось едиту? или еще лучше чтб было так: 1 строчка мемо присвоилась 1 едиту, 2 строка 2 едиту, ну и тд. до 10. И еще как ограничить кол-во строчек в мемо до 10.
    З.Ы. Знаю что тупой вопрос, но я новичек в делфи, перерыл кучу сайтов, но так и не нашел, спасибка с меня =)
     
    #2830 Maxxxtri23, 3 Mar 2009
    Last edited: 3 Mar 2009
  11. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Если бы ты хоть че то порыл то сразу бы нашел ответ, а вообще

    memo1.lines[n]:=editn;
     
  12. Maxxxtri23

    Maxxxtri23 New Member

    Joined:
    20 Dec 2008
    Messages:
    76
    Likes Received:
    1
    Reputations:
    0
    Да я так и делал, только он присваивал наоборот, все теперь вроде разобрался нужно было
    Edit1.Text:=Memo1.Lines[1]
     
  13. FieryKit

    FieryKit New Member

    Joined:
    10 Jul 2008
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Пожалусто, подскажите ХОРОШИЙ учебник delfi чтобы научится делать ВИРИ И ТРОЯНЫ
     
  14. eLWAux

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

    Joined:
    15 Jun 2008
    Messages:
    860
    Likes Received:
    616
    Reputations:
    211
    Code:
    for i:=1 to 10 do
    memo1.Lines.Strings[i] := (FindComponent('edit'+inttostr(i)) as TEdit).Text;
    
     
    1 person likes this.
  15. mrVoodoo

    mrVoodoo New Member

    Joined:
    29 Jun 2007
    Messages:
    9
    Likes Received:
    0
    Reputations:
    0
    у кого нибудь есть исходник этой программы? Trav2

    s59.radikal.ru/i164/0903/66/54e4bab1264f.gif

    программа была взята из книжки "Delphi Готовые алгоритмы", но сайт на который указывается в книжке уже давно не существует..
     
  16. eLWAux

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

    Joined:
    15 Jun 2008
    Messages:
    860
    Likes Received:
    616
    Reputations:
    211
    1) не "delfi" а "delphi"
    2) нету таких. сперва на паскале напиши несколько программ ;)
     
    1 person likes this.
  17. eLWAux

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

    Joined:
    15 Jun 2008
    Messages:
    860
    Likes Received:
    616
    Reputations:
    211
    http://delphialg.info/index.php?modtel=06-delphialg&nomerstr=0001
     
    #2837 eLWAux, 3 Mar 2009
    Last edited: 3 Mar 2009
  18. Maxxxtri23

    Maxxxtri23 New Member

    Joined:
    20 Dec 2008
    Messages:
    76
    Likes Received:
    1
    Reputations:
    0
    Вопрос все еще остается в силе
     
  19. eLWAux

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

    Joined:
    15 Jun 2008
    Messages:
    860
    Likes Received:
    616
    Reputations:
    211
    Ограничение длины и количества строк компонента Memo
    http://www.delphisources.ru/pages/faq/base/memo_limits.html
     
  20. mrVoodoo

    mrVoodoo New Member

    Joined:
    29 Jun 2007
    Messages:
    9
    Likes Received:
    0
    Reputations:
    0
    это та книга пропущенная через файнридер, но в книге не описывается вся программа, а только основные процедуры.. меня как раз интересует графический интерфейс, который там не описан..
     
Thread Status:
Not open for further replies.