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

    DmitryG New Member

    Joined:
    7 Jan 2011
    Messages:
    16
    Likes Received:
    1
    Reputations:
    0
    где скачать разные иконки для делфи?
     
  2. GlooK

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

    Joined:
    20 Apr 2007
    Messages:
    172
    Likes Received:
    53
    Reputations:
    10
    www.*iconfinder.*com/*free_icons
     
  3. foozzi

    foozzi Member

    Joined:
    13 Apr 2010
    Messages:
    195
    Likes Received:
    12
    Reputations:
    5
    помогите плиз надо делать такое
    мне надо чтобы когда открывает какуюнибудь папку , то в программе отображались все файлы с этой папки списком, потом выделить любой файл и декодировать (из dat в txt) декодировщик у меня есть , но как подключить его к программе?
     
  4. Freedom

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

    Joined:
    2 Jul 2007
    Messages:
    38
    Likes Received:
    92
    Reputations:
    8
    Всем привет. Подскажите плиз. Планируется разработка БД (кол-во записей может достигать нескольких десятков и сотен тысяч ). Какие компоненты или методы более стабильны(какие справятся с таким объемом) и которые вы используете ?

    ps. База будет локальная, т.е рядом с программой будет лежать файлик бд. )
     
    #7664 Freedom, 30 Jan 2011
    Last edited: 30 Jan 2011
  5. Isaev

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

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    При таком, относительно не большом объёме базы, любой компонент сгодится.
     
  6. AGIMgal

    AGIMgal New Member

    Joined:
    9 Jun 2010
    Messages:
    66
    Likes Received:
    0
    Reputations:
    0
    почему я сворачиваю с трей(или как там это правильно называется?), а программа там не отображается? использовал CoolTrayIcon.
     
  7. Hack_ERR++

    Hack_ERR++ Member

    Joined:
    13 Aug 2009
    Messages:
    41
    Likes Received:
    9
    Reputations:
    0
    AGIMgal, в свойствах компонента отображение в трее в true поставь
     
  8. foma9999

    foma9999 New Member

    Joined:
    5 Jan 2010
    Messages:
    83
    Likes Received:
    2
    Reputations:
    -5
    Code:
    co:=copy(co,pos('PHPSESSID=',co),42);
    
    cap:=TIdURI.Create('serat.ru');
    cap.Host:='http://serat.ru';
    cap.Path:='/';
    idhttp1.CookieManager.AddCookie(co, cap);
    
    ругается на
    Code:
    idhttp1.CookieManager.AddCookie(co, cap)
    
    [DCC Error] Unit1.pas(65): E2066 Missing operator or semicolon
     
  9. Isaev

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

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    просто так попробуй
    idhttp1.CookieManager.AddCookie(co, 'serat.ru')
     
  10. foma9999

    foma9999 New Member

    Joined:
    5 Jan 2010
    Messages:
    83
    Likes Received:
    2
    Reputations:
    -5
    Спс, помогло,
    теперь вопрос
    вылазит connection closed gracefully, гуглил не помогло,
    код
    Code:
    if checkbox1.Checked=false then begin
    I:=0;
    PostData:= TStringList.Create;
    PostData.Add('n=+'+n.Text+'&ok=1&okkk.x=74&okkk.y=20');
    while i<kolvo.Value do begin
    IdHTTP1.Post('http://www.x.com/',PostData);
    res:=IdHTTP1.ResponseText;
    I:=i+1;
    end;
    if res='HTTP/1.1 200 OK' then
    memo1.Lines.Add(inttostr(I)+' !') else memo1.Lines.Add(inttostr(I)+' ошибка!');
    
    end;
    
     
  11. smsfan8393

    smsfan8393 Banned

    Joined:
    2 Sep 2010
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    Помогите плиз! Нужно сделать задачу на паскаль графическим методом, т.е. чтобы при решении задачи выдавало картинку. Сделайте плиз такую задачу, чтобы например вышел дом, машина, или еще какойто обьект! Буду очень благодарен, в долгу не останусь. Параметры любые можно вводить, ширину, длину и тп.
     
  12. trunker

    trunker Member

    Joined:
    5 Feb 2009
    Messages:
    44
    Likes Received:
    66
    Reputations:
    1
    Code:
    procedure Treger.Button1Click(Sender: TObject);
    
    var
    balance:string;
    begin
     balance:=idhttp1.Get('http://antigate.com/res.php?key='+editKey.Text+'&action=getbalance');
     editBalance.Caption:=balance;
    end;
    end.
    как сделать так, что бы при нажатие кноаки если edit1.text пустое выходило сообщение а если введен ключ то продолжало работать дальше?
     
  13. Pir4tt

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

    Joined:
    3 Jan 2008
    Messages:
    73
    Likes Received:
    36
    Reputations:
    5
    Code:
    procedure Treger.Button1Click(Sender: TObject);
    var
    balance:string;
    begin
    if editKey.Text<>'' then begin
     balance:=idhttp1.Get('http://antigate.com/res.php?key='+editKey.Text+'&action=getbalance');
     editBalance.Caption:=balance;
    end else messagebox(0,'WHERE_THE_KEY_DUDE?!','NO_KEY!',0);
    end;
    end.
    Где Content-Length??
     
    #7673 Pir4tt, 3 Feb 2011
    Last edited: 3 Feb 2011
  14. DimkO

    DimkO Banned

    Joined:
    16 Nov 2008
    Messages:
    28
    Likes Received:
    3
    Reputations:
    0
    может знатокам вопрос покажется и немного глупым,но все таки)
    есть база данных MS access такого типа:
    ID Password value
    1234 12563 3452
    3425 41235 3425

    Вопрос,как мне сделать обход по всем ячейкам в компоненте типа TADOTable??
    ибо Table.Fields.FieldName проходит только по верхней строке(в моем случае это ID,Password,Value) а в глубину не заходит=\
    заранее спасибо.
     
  15. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    Глупый вопрос..

    Имеется консольное приложение на Дельфи. Есть модуль. Как из модуля получить доступ к переменным(глобальным) объявленным в основой программе?
     
  16. ALeXX&7

    ALeXX&7 New Member

    Joined:
    4 Oct 2010
    Messages:
    50
    Likes Received:
    1
    Reputations:
    0
    uses unit2
    .....
    .....
    var
    uses unit 1;
     
  17. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    Эммм какой юнит?)
    Что мне указывать в модуле то? В консольном приложении нету pas файла..
     
  18. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    так блеать создай и подключи к проекту и в uses пропиши
    как же нету, а как там системные модули подключены в uses?
     
  19. foma9999

    foma9999 New Member

    Joined:
    5 Jan 2010
    Messages:
    83
    Likes Received:
    2
    Reputations:
    -5

    Это тут заачем??
     
  20. Isaev

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

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    :) ну у каждого свои заскоки... Видимо ему необходимо!
    Вообще снифером проверь, возможно неправильно куки цепляются, потому сервак обрубает соединение
     
Thread Status:
Not open for further replies.