Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 6

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы Вопросы по Delphi (до версии 2009) - часть 5

Познаем сами, помогаем другим...
Обсуждаем вопросы, не связанные с юникоидными версиями Delphi - для этого есть соответствующая тема (см. ссылки ниже).


 
Правила топика:
    Прежде чем спрашивать:
  1. Желательно изучить вопрос, попытаться найти ответ в прилагаемых мануалах, хелпах и анализируя исходники.
  2. Выполнить поиск по топику (открыть "Версия для печати" и поискать ответ там).
  3. Применить фильтр по разделу "Прикладное программирование". Ответы на многие старые вопросы могли быть даны в отдельных темах.
  4. Продумайте вопрос. На поверхностные вопросы вы получите поверхностные ответы, или вообще ответов не получите.
  5. Желательно указывать версии используемого компилятора и операционной системы.
    Прежде чем отвечать:
  1. Если не можете помочь, не мешайте.
  2. Если уж вы отвечаете на вопрос, давайте ответ по сути.
  3. Если вы не уверены, так и говорите! Ошибочный, но авторитетно звучащий ответ хуже, чем отсутствие ответа.
  4. Задавайте дополнительные вопросы, чтобы получить больше информации.
  • Отсутствие ответа не равносильно игнорированию - иногда участники форума просто не знают ответ. Повторная посылка вопроса не приветствуется. Посты типа "неужели никто не знает ответа..." или "может мне все-таки кто-нибудь ответит" недопустимы.  
  • Все большие куски кода (более 5 строк) оформляем в тег [morе] дабы уменьшить размер поста. FAQ по тегу [morе].


    Некоторые "родственные" топики:
     
  • Вопросы по Delphi (версии 2009-2010 Weaver)
  • Вопросы по компонентам для Delphi, C++ Builder
  • Использование DevExpress
  • Вопросы по Ehlib
  • Компоненты и утилиты для Delphi/BCB/FreePascal/Lazarus - только Open Source
  • Коммерческие компоненты и утилиты для Delphi/BCB
  • кабак программистов :)
     
    См. также: Некоторые полезные ресурсы о Delphi
     
    И старайтесь, чтобы ваш код не попал сюда :)

  • Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 05:13 19-05-2010 | Исправлено: akaGM, 02:33 15-07-2020
    YuriyRR



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    serg3001

    Цитата:
    serg3001

    Цитата:
    нужно связать между собой данные из этих трех файлов, извлечь их в отдельную таблицу, после этого данные перенести в txt файл, который будет иметь спец. вид.  
     

    Используй MS ACCESS. Импортируй туда ДБФы и в конструкторе запросов свяжи их между собой и выбери нужные поля. Результат сохрани в текстовом файле или в XLS или ещё каком.

    Всего записей: 516 | Зарегистр. 07-06-2007 | Отправлено: 13:02 21-11-2010
    serg3001



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    YuriyRR, открыл в ACCESS файлы, но кодировка DOS отображается, подскажите а как можно поменять кодировку?  

    Всего записей: 3807 | Зарегистр. 16-10-2010 | Отправлено: 12:37 22-11-2010
    mcdie



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    serg3001
    В нижеуказанной статье описан механизм замены кодировки DBF
    В разделе OLE DB Provider for Visual FoxPro. Копировать не буду, там есть пример.
    http://am.rusimport.ru/mSAccess/download.aspx?id=657
     
    Но если OLE DB Provider for Visual FoxPro использовать, то нормально будет воспринимать кодировку, пишешь запрос (используя допустим TADOQuery) по своим таблицам, перебираешь результат и в цикле построково сохраняешь в файл. Все русские буквы должны сохранится правильно.

    Всего записей: 145 | Зарегистр. 03-05-2006 | Отправлено: 18:35 22-11-2010
    ant0ni02004

    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    serg3001
     
    можна еще TxQuery попробовать

    Всего записей: 442 | Зарегистр. 26-10-2004 | Отправлено: 22:56 22-11-2010
    MedvedevDM



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Кто подскажет, как в делфи
    в чек боксе сделать, чтобы галка была нестандартной,
    - заменить ее на свою, например из картинки?

    Всего записей: 114 | Зарегистр. 03-11-2010 | Отправлено: 16:58 23-11-2010
    Man_Without_Face



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    MedvedevDM
    Насколько я знаю со стандартными компонентами так нельзя. Можно с DevExpress (prperties->glyph). Или использовать те же скины в DevExpress.

    Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 17:12 23-11-2010
    YuriyRR



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    serg3001

    Как известно, при чтении данных из dbf файла  
    Access ориентируется на значение параметра
    DataCodePage в ключе HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase
    Видимо в Вашем случае там записано OEM.  
    А Вы хотите ANSI. Ну или наоборот ). Или ветка [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5\Engines\Xbase]
    в зависимости от версии

    Всего записей: 516 | Зарегистр. 07-06-2007 | Отправлено: 01:24 24-11-2010
    ShIvADeSt



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    MedvedevDM

    Цитата:
    Кто подскажет, как в делфи
    в чек боксе сделать, чтобы галка была нестандартной,
    - заменить ее на свою, например из картинки?

    Можно, но на чистом АПИ. Создаешь owner_draw чекбокс и рисуешь что хочешь на нем. Если интересно - могу дать свой кусок.

    ----------
    И создал Бог женщину... Существо получилось злобное, но забавное...

    Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 03:01 24-11-2010
    GRom V

    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Подскажите как можно запретить перетаскивание окна(формы) мышкой?

    Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 06:59 26-11-2010
    mcdie



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GRom V
    Ты про это?
    Form.BorderStyle := bsSingle;
    Form.Align := alCustom;

    Всего записей: 145 | Зарегистр. 03-05-2006 | Отправлено: 09:14 26-11-2010
    GRom V

    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    mcdie
     
    спасибки Form.Align := alCustom; работает!

    Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 09:49 26-11-2010
    YuriyRR



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GRom V

    Цитата:
    Подскажите как можно запретить перетаскивание окна(формы) мышкой?

    Можно убрать заголовок. В класс формы добавляешь метод
        procedure CreateParams(var Params: TCreateParams); override;
     
    procedure TTRANSPORT.CreateParams(var Params: TCreateParams);
    begin
      inherited CreateParams(Params);
        with Params do
          Style := (Style or WS_POPUP) and (not WS_DLGFRAME);
    end;

    Всего записей: 516 | Зарегистр. 07-06-2007 | Отправлено: 00:18 28-11-2010 | Исправлено: YuriyRR, 00:20 28-11-2010
    GRom V

    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Еще вопрос... не знаю как по корректнее:
    Можно ли скрипт написанный на vbs вставить в delphi?

    Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 03:30 29-11-2010
    YuriyRR



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GRom V

    Цитата:
    Можно ли скрипт написанный на vbs вставить в delphi?

    Ну самое простое наверное через ShellExecute.

    Всего записей: 516 | Зарегистр. 07-06-2007 | Отправлено: 03:52 29-11-2010
    ShIvADeSt



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GRom V

    Цитата:
    Можно ли скрипт написанный на vbs вставить в delphi?

    Что подразумевается под словом вставить?
    1. Засунуть в ресурс (да можно, только нафига)
    2. Выполнить (да можно, разные способы на всякий случай перед скриптом cscript.exe указываем).
    3. Получить данные, выдаваемые скриптом (да можно, сохраняй их в файл и читай после окончания действия скрипта из программы).


    ----------
    И создал Бог женщину... Существо получилось злобное, но забавное...

    Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 06:02 29-11-2010
    GRom V

    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    ShIvADeSt

    Цитата:
    2. Выполнить (да можно, разные способы на всякий случай перед скриптом cscript.exe указываем).

     
    Да именно это мне и нужно...а как это на практике ...
     
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    [сценарий vbs]
    end;
     

    Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 10:48 29-11-2010 | Исправлено: GRom V, 10:57 29-11-2010
    tanaseduard



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GRom V
    ShellExecute?

    Всего записей: 518 | Зарегистр. 21-11-2009 | Отправлено: 11:10 29-11-2010
    ShIvADeSt



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GRom V

    Цитата:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    [сценарий vbs]
    end;  

    Э нет, так нельзя, вот так примерно можно
    procedure TForm1.Button1Click(Sender: TObject);
    begin
       WinExec('cscript.exe myscript.vbs',SW_SHOW);
    end;
     
    если тебе надо как то получить результат - то добавляй в скрипте вывод в текстовый файл и по окончании работы читай из него. Возможно есть другие способы, но пока не видно что делает скрипт - подсказать не получится.

    ----------
    И создал Бог женщину... Существо получилось злобное, но забавное...

    Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 11:26 29-11-2010
    GRom V

    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    ShIvADeSt

    Цитата:
    WinExec('cscript.exe myscript.vbs',SW_SHOW);

    Это то понятно... я думал можно как то сам сценарий прописать...

    Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 14:05 29-11-2010
    tanaseduard



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GRom V
    Что имеется в виду?
    Как прописать сценарий?

    Всего записей: 518 | Зарегистр. 21-11-2009 | Отправлено: 14:43 29-11-2010
    Открыть новую тему     Написать ответ в эту тему

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 6


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru