Вопросы по Delphi (все версии) - часть 3 - [12] :: Прикладное программирование :: Компьютерный форум 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

   

SERGE_BLIZNUK

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

Цитата:
Но при выборе директории, всё действо переходит в эту папку, а в ней 111.txt нету

насколько я понял, так 111.txt лежит рядом с вашим exe-шником?
Тогда проше всего открывать файл '111.txt' по полному пути -  
декларируйте  
  TxtPathName : string;
на FormCreate
  TxtPathName := ExtractFilePath(ParamStr(0)) + '111.txt';
на TForm1.Button1Click:
  sl.LoadFromFile(TxtPathName);
 
p.s. кстати, у вас нет проверок вообще (ни что файл 111.txt cуществует, ни то - что он не пустой...)

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 21:44 05-05-2007
RomanTim

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

Цитата:
Я написал программу и теперь хочу чтобы она постоянно висела в трее (типа UserGate или антивируса). Вообщем чтобы она постоянно работала.
Какими компонентами можно воспользоваться и где их взять?  

CoolTrayIcon - http://subsimple.com/delphi.asp

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



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
scharhan
А чем не устраивает стандартный TTrayIcon (закладка Samples)?

Всего записей: 1038 | Зарегистр. 31-05-2005 | Отправлено: 05:58 07-05-2007
GreatOne



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
При выполнении команды "IdHTTP1.Get('http://mail.ru/');" появляется ошибка "Socket error #10060 Connection timed out" - раньше ее не было, походу нужно увеличить время соединения, но я не нашел эту команду. Подскажите плиз где ее найти!!!!!

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 10:56 07-05-2007
afiget



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GreatOne
idhttp.ReadTimeout:= 30000;

Всего записей: 545 | Зарегистр. 31-12-2005 | Отправлено: 12:55 07-05-2007
GreatOne



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
2afiget
 
Спасибо
 
Добавлено:
Народ!! Подскажите плиз по какому порту работает TWebBrowser?

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 13:04 07-05-2007
ArtemiyUO

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GreatOne
80
как и интернет эксплорер, оболочкой для которого он и является.

Всего записей: 539 | Зарегистр. 12-12-2005 | Отправлено: 15:31 07-05-2007
scharhan

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Tantos
TTrayIcon - у меня нет. А CoolTrayIcon не пашет!!!

Всего записей: 27 | Зарегистр. 26-04-2007 | Отправлено: 15:54 07-05-2007
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
scharhan
Какая делфи? в 2006 не в Samples, а в Additional

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 17:43 07-05-2007
scharhan

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, как програмно открыть/закрыть дисковод (слюбой буквой и не только cd-rom, но cd-rw & dvd)

Всего записей: 27 | Зарегистр. 26-04-2007 | Отправлено: 23:32 07-05-2007
Tantos



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

Цитата:
 

Код:
 
uses MMSystem;
 
mciSendString("Set CDAudio Door Open Wait",nil, 0, nil);// - Открыть
mciSendString("Set CDAudio Door Closed Wait",nil, 0, nil);// - Закрыть
 

 

Всего записей: 1038 | Зарегистр. 31-05-2005 | Отправлено: 03:51 08-05-2007
andead



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

Цитата:
Архитектура DBX4 разработана легендарным Стивом Шоннеси, и призвана положить конец разнообразию методов доступа к базам данным. Теперь все драйверы для СУБД будут основываться на единой архитектуре, как для Delphi Win32, так и для .NET, и, в будущем, C++ Builder. Через концепцию шлюзов или мостов (bridge) они поддерживают ADO .NET 2.0, старые BDP и DBExpress.

вопрос - если писать программу с DBX4, то на голую систему нужно будет устанавливать какие-нибудь драйвера для работы этой программы, как было с BDE? или всё будет в exe-шнике?

----------
мой блог

Всего записей: 1821 | Зарегистр. 22-09-2005 | Отправлено: 04:00 08-05-2007
SNike111

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Не сталкивался ли кто с задачей установки приложений COM+ программным путем или же может какой из инсталляторов умеет это делать. Здача в том чтобы при установке ПО автоматизировать этот процесс, а не идти в оснастку служб компонентов, может кто подскажет?

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



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите: пришлось столкнуться с типом данных запись(причём вложенным) выдаёт ошибку при компиляции. Раньше с ним сталкивался только на Турбо Паскале. В Делфи, видимо, по такому же принципу не работает:
 
Подробнее... [?]
 
Как нужно правильно описать структуру данных? Подскажите, кто сталкивался

Всего записей: 92 | Зарегистр. 01-12-2004 | Отправлено: 13:23 08-05-2007
abv



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Aleks007
Все прекрасно работает. Типы нужно объявлять в разделе types а не var
Подробнее... [?]

Всего записей: 268 | Зарегистр. 23-08-2001 | Отправлено: 13:37 08-05-2007
SNike111

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
На сколько мне помнится Record - это тип данных. А типы соответственно нужно описывать не в секции Var

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

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Tantos
спасибо, я понял, я тоже уже так сделал
 
Добавлено:
А кто-то может подсказать, как сделать чтобы exeшник весил по меньше, а то в проге нет ничё, а она весит 500 КВ!!!!

Всего записей: 27 | Зарегистр. 26-04-2007 | Отправлено: 14:43 08-05-2007
GreatOne



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
2scharhan
Поробуй на WinApi написать будет 30кб весить
 
Люди подскажите плиз как сделать так, чтобы оператор CASE мог работать со строками!!  
Типа так:
var str: string;
begin
CASE str of
'string1': COMMAND1
'string2': COMMAND2
end;
end;

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 16:21 08-05-2007
RomanTim

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

Цитата:
Люди подскажите плиз как сделать так, чтобы оператор CASE мог работать со строками!!

Никак - стандарт языка такого не предусматривает

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



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
scharhan
Смотри сюда http://kolmck.net
Хорошая штука, но у меня уже много лет не доходят руки ее плотно покрутить.
Кстати, сейчас и 10 метровые программы считаются нормой - стоит только посмотреть на тот же DevExpress
 
GreatOne
На самом деле можно - есть обходной вариант. Но производительность при этом пострадает.
Создаем массив строк, находим подходящий элемент массива, а case делаем по его индексу.
 
RomanTim
Не позволяет... Но иногда очень надо

Всего записей: 2111 | Зарегистр. 18-01-2002 | Отправлено: 17:45 08-05-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

Рейтинг.ru