Вопросы по Delphi (все версии) - часть 3 - [28] :: Прикладное программирование

Вставить цитату X

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

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

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

Модерирует : ShIvADeSt
ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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

Mudrec555

Junior Member

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

пролема такая:

вообще раньше не занимался программирование БД, вот щас чет осенило меня...

короче, фигня такая - кидаю компонент TSQLConnection, настраиваю его на MySQL, пытаюсь активоровать подключение - вылетает ошибка "Unable to load libmysql.dll". Сервак естесно стоит, дллка это лежит и в директории с прогой и директории с виндой...
Сервак 5 версии. Делфя - 7. Может быть такое что они версями не дружат?

Всего записей: 96 | Зарегистр. 17-02-2005 | Отправлено: 14:52 01-08-2007

bandyn

Member

var
time1,time2,time3: TDateTime;
i,iAll: Integer;
begin
iAll:=1000;
time1:=Now;
LabTime1.Caption:='Время старта: '+TimeToStr(time1);
for i:=1 to iAll do
begin
Application.ProcessMessages;
time2:=Now-time1;
LabTime2.Caption:='Прошло: '+TimeToStr(time2);
//
// Некий код ....
//
end;
end;

Как вычислить time3 (Приблизительное время окончания) ?
Может кто занимался эти вопросом?

Всего записей: 394 | Зарегистр. 18-11-2004 | Отправлено: 16:42 01-08-2007

Glukodel

Junior Member

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

bandyn
ожидаемое время окончания можно посчитать так:
time3:= time2 / (i/iAll);

P.S. обычное такие сложные задачи решают в 3-м класе, изучая пропорции

P.P.S. и для полного счастья:

var
time1,time2,time3:Longword;
.......
time1:=GetTickCount; (в милисекундах)
.....
time2:=GetTickCount-time1;

Всего записей: 97 | Зарегистр. 16-08-2004 | Отправлено: 18:03 01-08-2007 | Исправлено: Glukodel, 18:10 01-08-2007

bandyn

Member

Glukodel

Спасибо! :-[

----------
Жизнь одна - добавь огня!

Всего записей: 394 | Зарегистр. 18-11-2004 | Отправлено: 19:56 01-08-2007

diodio

Junior Member

А как можно после копирования файла cравнить контрольные суммы?
Ну, или подскажите, пожалуйста, функцию/компонент копирования, которая бы возвращала бы значение.

Всего записей: 111 | Зарегистр. 26-12-2006 | Отправлено: 20:12 01-08-2007

Chuvakstepan

Member

Цитата:

Подскажите пожалуйста, как в Delphi программно узнать версию шейдеров на видеокарте пользователя?

Вопрос остаётся нерешённым

. Единственное, что я знаю - надо как-то получить эту информацию, импортируя dll из DirectX

Всего записей: 202 | Зарегистр. 29-01-2007 | Отправлено: 08:42 02-08-2007

Joker79

BANNED

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

Возможно, стоит поэксперементировать с EnumDisplayDevices. Знаю, что вот так узнается название видеокарты:

Код:

var
lpDisplayDevice: TDisplayDevice;
dwFlags: DWORD;
begin
lpDisplayDevice.cb := sizeof(lpDisplayDevice);
dwFlags := 0;
EnumDisplayDevices(nil,0, lpDisplayDevice , dwFlags);
showmessage(lpDisplayDevice.DeviceString);
end;

Всего записей: 22 | Зарегистр. 13-07-2007 | Отправлено: 09:27 02-08-2007

SERGE_BLIZNUK

Silver Member

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

diodio
поищите, есть куча примеров (и готовых библиотек) для вычисления полиномов и хэшей
CRC32 md5 и других...
Например -
chipher.zip Delphi Encryption Compedium Part I v.3.0 FWS 678 k 31 Aug 1999
Delphi Encryption Compedium Part I v.3.0 FWS 678 k 31 Aug 1999
By Hagen Reddmann. A Compendium of various strong Encryption Algorithm and more... includes:
40 Ciphers (IDEA, Blowfish, Twofish, DES, Square ...)
23 Hashs (MD4/5, SHA/1, RipeMD, Havel, Tiger ...)
5 Checksums (CRC32, CRC16-CCITT, CRC16-Standard ...)
...
для crc32 могу выложить код, который компилится (и работает) даже под TP7

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 09:53 02-08-2007

SpoinT

Advanced Member

diodio
Вычисление ЦРЦ здесь [?]

----------
В жизни мне не хватает 2-х вещей - кнопок Save Game и Load Game...

Всего записей: 840 | Зарегистр. 31-01-2007 | Отправлено: 10:04 02-08-2007

diodio Junior Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Спасибо за ответы
	Всего записей: 111 \| Зарегистр. 26-12-2006 \| Отправлено: 17:04 02-08-2007

SpoinT

Advanced Member

diodio
Ноу проблем. Но я бы рекомендовал использовать непосредственно мой метод, т.е. процедурку, а не компонент. Если использовать постоянно компоненты при банальных вещах, то ничему не научишься

----------
В жизни мне не хватает 2-х вещей - кнопок Save Game и Load Game...

Всего записей: 840 | Зарегистр. 31-01-2007 | Отправлено: 10:23 03-08-2007

diodio Junior Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору 2 SpoinT Я именно так и сделал, сейчас пытаюсь разобраться, как же оно на самом деле работает
	Всего записей: 111 \| Зарегистр. 26-12-2006 \| Отправлено: 12:24 04-08-2007

SpoinT

Advanced Member

diodio
Достаточно просто и стабильно

И без лишних компонентов на форме.

----------
В жизни мне не хватает 2-х вещей - кнопок Save Game и Load Game...

Всего записей: 840 | Зарегистр. 31-01-2007 | Отправлено: 00:51 05-08-2007

ХУдератор

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

Друзья, кто-нибудь ставил д2007 параллельно с бдс2006, не наблюдается ли каких-либо фатальных несовместимостей :-?

----------
Счастливые мысли приводят к счастливой клеточной биохимии

Всего записей: 10530 | Зарегистр. 28-05-2003 | Отправлено: 03:13 05-08-2007

akaGM

Platinum Member

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

xy
у нас на соседней машине стоит на время переходного периода, только на разных операционках... по-моему, они не раскланяются... или будет работать только последняя по времени...
ты же всё-таки под параллельностью последовательность имеешь ввиду?

Всего записей: 25446 | Зарегистр. 06-12-2002 | Отправлено: 10:23 05-08-2007

ХУдератор

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

akaGM
я имею ввиду, что стоит бдс2006 и работает нормально, а рядом на той же машине и ОС стоит д2007 и тоже работает нормально (как в былые времена д6, д7, .. могли работать рядом и не мешать друг-другу ;))

----------
Счастливые мысли приводят к счастливой клеточной биохимии

Всего записей: 10530 | Зарегистр. 28-05-2003 | Отправлено: 10:59 05-08-2007

akaGM

Platinum Member

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

xy
ну да, я так тебя и понял... только ставятся-то они последовательно...
ну придираюсь я, придираюсь, больше не буду...
тем более мне скоро другу d200 помогать покупать, так что к вам зайти придётся гы

Всего записей: 25446 | Зарегистр. 06-12-2002 | Отправлено: 11:32 05-08-2007

RomanTim

Member

xy
У меня не получилось - почему-то, не смотря на то, что 2007 это 11я версия, имена BPL-ек оставили старыми (rtl100.bpl, vcl100.bpl и т.д.), а так как они лежат в System32, то 2007 перезаписывает то, что было установлено с 2006, в результате 2006 запускаться перестает

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 13:01 05-08-2007

ХУдератор

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

RomanTim
Спасибо, рисковать не буду.. хотя мои проекты без проблем собрались поб д2007 (на Висте64) переходить пока времени нет :)

----------
Счастливые мысли приводят к счастливой клеточной биохимии

Всего записей: 10530 | Зарегистр. 28-05-2003 | Отправлено: 13:23 05-08-2007

cs137

Member

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

xy
Ставятся, ставятся! У меня вот стоят все вместе BCB6 + D7 + BDS2006 + RAD2007 + VS2005. Все работает, везде все компилиться

Единственное но, так это то, что после удаления RAD2007, BDS2006 перестает работать. Ну а раз вопрос про установку, то на этот недостаток обращать не будем

Всего записей: 315 | Зарегистр. 18-01-2006 | Отправлено: 17:55 05-08-2007

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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3
ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383

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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC