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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
    apnss

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

    Цитата:
    Не знаю такого. Может подойдёт Charset Detector?

     
    для старого проекта нужен  .... ломак подстраивать  
     
    но за ссылку спасибо - было полезно  
     
     
    Цитата:
    это ж файл от плагина для тотала Codepage

    угу  только что-та удачно не гуглица оно  

    Всего записей: 708 | Зарегистр. 26-02-2002 | Отправлено: 17:19 09-07-2012
    data man



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

    Цитата:
    за ссылку спасибо  

    Не за что!
     

    Цитата:
    удачно не гуглица оно  

    Да ладно! Тут есть.

    ----------
    Любой достаточно развитый тролль неотличим от подлинно помешанного на какой-либо идее.
    Кекс. Антибиотики. Ламбада.

    Всего записей: 1696 | Зарегистр. 13-10-2005 | Отправлено: 17:34 09-07-2012
    SevereK20

    Gold Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    есть delphi 7 + fb 2.5 ..
    в программе ведется полное логирование - кто когда зашел, когда вышел.
    средствами delphi при закрытии приложения выполняется запрос, который пишет в лог о выходе. но при разрыве подключения по сети.. или shutdown компа запись естественно не пишется о выходе. можно ли придумать какой-нибудь варинат, при котором запиь о выходе пользователя из бд будет заносится всегда..?

    Всего записей: 7684 | Зарегистр. 07-05-2010 | Отправлено: 15:13 10-07-2012
    ant0ni02004

    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    SevereK20
    попробуйте trigger on disconnect, начиная с ФБ 2.1 есть

    Всего записей: 442 | Зарегистр. 26-10-2004 | Отправлено: 16:28 10-07-2012
    SevereK20

    Gold Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ant0ni02004
    спасибо.пойду в ветку по фб

    Всего записей: 7684 | Зарегистр. 07-05-2010 | Отправлено: 09:57 11-07-2012
    miwa

    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    SevereK20
    Имейте в виду, что OnDisconnect срабатывает тогда, когда ОС отправляет извещение процессу ФБ о потере коннекта. В случае физических проблем с сетью (сгоревший свич) дефолтный таймаут  винды - что-то около двух часов. «Просто запомните это, потому что понять это невозможно» ©

    Всего записей: 455 | Зарегистр. 10-10-2004 | Отправлено: 11:28 11-07-2012
    SevereK20

    Gold Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    miwa
    вроде как заверяли, что не сработает только в случае падения сервера)
    счас отпишу в ветку по фб.
    спасибо

    Всего записей: 7684 | Зарегистр. 07-05-2010 | Отправлено: 11:33 11-07-2012
    F777



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Код Delphi 7:
     
    Подробнее...
     
    Под Windows XP работает нормально: символы кирилицы не вводятся, обратный апостроф заменяется.
     
    Запускают созданную программу под Линуксом через Wine 1.4.1. Указанная фильтрация ввода символов не работает. Почему? Как лечить?
     
    Спасибо.

    Всего записей: 2182 | Зарегистр. 23-02-2004 | Отправлено: 01:22 12-07-2012 | Исправлено: F777, 01:29 12-07-2012
    ESV1987

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Здравствуйте ещё раз
     
    а кто-нибудь встречал какое-нибудь руководство о том, как правильно сделать дизайн главной формы задачи (математической)?
    Понятно, что это дело индивидуальное, но основные рекомендации для удобства пользования наверняка где-то описаны... (хочу ряд своих мини-задач объединить в одну прогу)

    Всего записей: 56 | Зарегистр. 31-03-2007 | Отправлено: 14:24 14-07-2012
    Maks150988



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Всем привет. Подскажите почему выскакивает исключение при вызове SafeArrayDestroy. Вроде все правильно делаю...
     

    Цитата:
    procedure BrowserPostData(const si: SELFCARE_INFO);
    const
      pszHeader: UTF8String = 'Content-Type: application/x-www-form-urlencoded';
    var
      pszURL         : UTF8String;
      pszData        : UTF8String;
      hr             : HRESULT;
      pWBApp         : IUnknown;
      pBrowser2      : IWebBrowser2;
      psa            : PSafeArray;
      LBound         : Integer;
      cElements      : Integer;
      pvdata         : Pointer;
      URL            : OleVariant;
      Flags          : OleVariant;
      TargetFrameName: OleVariant;
      PostData       : OleVariant;
      Headers        : OleVariant;
    begin
      pszURL := si.pszURL;
      pszData := si.pszData;
      hr := CoCreateInstance(CLSID_InternetExplorer, nil, CLSCTX_INPROC_SERVER or
        CLSCTX_LOCAL_SERVER, IID_IWebBrowser2, pWBApp);
      if (hr = S_OK) then
      try
        pBrowser2 := pWBApp as IWebBrowser2;
        LBound := 0;
        cElements := Length(pszData);
        psa := SafeArrayCreateVector(VT_UI1, LBound, cElements);
        if (psa <> nil) then
        try
          hr := SafeArrayAccessData(psa, pvdata);
          if (hr = S_OK) then
          try
            CopyMemory(pvdata, LPCSTR(pszData), cElements);
            TVarData(PostData).VType  := varByte or varArray;
            TVarData(PostData).VArray := Pointer(psa);
            URL             := pszURL;
            Flags           := navNoReadFromCache;
            TargetFrameName := EmptyParam;
            Headers         := pszHeader;
            pBrowser2.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);
            pBrowser2.Visible := TRUE;
          finally
            SafeArrayUnaccessData(psa);
          end;
        finally
          SafeArrayDestroy(psa);
        end;
      finally
        pWBApp := nil;
      end;
    end;

    Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 14:07 16-07-2012 | Исправлено: Maks150988, 14:09 16-07-2012
    ant0ni02004

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

    Всего записей: 442 | Зарегистр. 26-10-2004 | Отправлено: 20:45 16-07-2012
    XCV81



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Может подскажет кто решение моей задачки, надо все файлы с расширением "txt" одной папки (включая подпапки) кроме определенных файлов (к примеру кроме 1.txt и 10.txt) скопировать в другую папку сохраняя структуру подпапок....
    пока сделал так: сначала копирую все файлы, потом из папки с результатом удаляю ненужные, но такой выход мне совсем не нравится...
    Подробнее...

    Всего записей: 432 | Зарегистр. 03-10-2007 | Отправлено: 17:15 17-07-2012 | Исправлено: XCV81, 17:18 17-07-2012
    Maks150988



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ant0ni02004
    Как я понимаю, функция SafeArrayAccessData возвращает указатель на данные массива и блокирует массив. Соответственно функция SafeArrayUnaccessData снимает блокировку. Но сам дескриптор массива то остается, вот и удаляю его через SafeArrayDestroy, но происходит ошибка...

    Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 11:14 18-07-2012
    ant0ni02004

    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Maks150988
    а исключение какое выскакивает? текст, системный код ошибки?

    Всего записей: 442 | Зарегистр. 26-10-2004 | Отправлено: 15:25 18-07-2012
    ESV1987

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    XCV81
    а чего нельзя получить список всех .тхт-файлов в директории в массив, а потом убрать из него те, которые совпадают с 1.тхт и 10.тхт. А затем по именам из массива копировать?

    Всего записей: 56 | Зарегистр. 31-03-2007 | Отправлено: 16:33 18-07-2012
    XCV81



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ESV1987, в принципе вариант, как-то даже не думалось в эту сторону, вообще искал готовый модуль с функцией копирования всех файлов по маске с заданием исключений, спасибо за идею

    Всего записей: 432 | Зарегистр. 03-10-2007 | Отправлено: 17:33 18-07-2012
    ESV1987

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    у меня тоже вопросик: TrackBar поставил впервые на форму своей программы, всё вроде настроил, а потом выяснилось, что он по умолчанию реагирует на вращение колёсика мыши
     
    как это убрать или по крайней мере, чтоб это осталось только когда трэкбар выделен, а не в пассивном состоянии?
     
    (суть в том, что на первой панели ни на что больше фокус нельзя поставить, наверное)

    Всего записей: 56 | Зарегистр. 31-03-2007 | Отправлено: 19:10 18-07-2012 | Исправлено: ESV1987, 19:22 18-07-2012
    Maks150988



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Проблема в следующем. Почему aiex.pszError такой же как и aiex.pszUpdated? На Неюникод аналоге все нормально. Может что-то связано с FormatW? Или присваиваю строки неправильно?
     
    Код

    Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 11:48 22-07-2012
    jFobos



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ESV1987,  
    Могу предложить создать "обертку"  

    Цитата:
    THackTTrackBar = class(TTrackBar)
      private
        procedure TBMouseWheel(var Message: THBMouseWheel); message CM_MOUSEWHEEL;
      end;
     
    implementation
     
    procedure THackTTrackBar.TBMouseWheel(var Message: THBMouseWheel);
    begin
    // Убиваем прокрутку колеса мыши
    // никакой реакции на сообщение от колеса нету
    end;
     
    procedure TFrmMain.FormCreate(Sender: TObject);
    begin
      PPointer(TrackBar1)^ := THackTTrackBar;
    end;
     

    Всего записей: 452 | Зарегистр. 03-12-2007 | Отправлено: 22:28 22-07-2012
    Frodo_Torbins

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ESV1987
    Просто форме ActiveControl другой выставить да и все.
     
    jFobos
    Если контрол такой только один, то можно еще так: http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=1367

    Всего записей: 2318 | Зарегистр. 24-05-2007 | Отправлено: 23:16 22-07-2012
    Открыть новую тему     Написать ответ в эту тему

    Страницы: 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