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

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

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

ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

OXDBA

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ShamaN
А что тебе мешает сделать парольную форму Form2, а в MainForm(которая Form1)
на OnCreate повесить создание Form2, проверку пароля, если что-то не то, тогда Application.Terminate?

Всего записей: 426 | Зарегистр. 19-01-2005 | Отправлено: 17:38 13-01-2006
Z MeZe



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

Цитата:
 
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
 
{$R *.RES}
 
begin
  Form1 := TForm1.Create(Application);
  Form1.ShowModal;
 if {условие продолжения работы программы} then begin
   Application.Initialize;
   Application.CreateForm(TForm2, Form2);
   Form1.Free;
   Application.Run;
 end
 else begin
        Form1.Free;
        Application.Terminate;
      end;
end.
 

Нужно только в Project/Options/Forms убрать Form1 из Auto-create forms в Available forms

Всего записей: 455 | Зарегистр. 09-02-2004 | Отправлено: 19:00 13-01-2006
ShamaN



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Z MeZe, спасибо. Буду пробовать.

Всего записей: 1297 | Зарегистр. 23-09-2004 | Отправлено: 20:55 13-01-2006
chaugi



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопрос:
Почему когда я копирую из Edit1 текст который был написан на русском, у меня он получается абра-кадаброй?
Как это исправить?6 Ну например при нажатии на кнопку содержимое копируется в буфер обмена, но уже в нормальной кодировке, а не кривой.
 
Edit1.CopyToClipboard;
 
Спасибо.

Всего записей: 321 | Зарегистр. 16-03-2002 | Отправлено: 13:36 14-01-2006
minkus



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть связка Master/Detail в cxGrid-e в Detail-e есть Summary, нужнл при изменение итога по Detail изменить соответственно и запись в Mastere. Как правилно ето сделать оставаясь в Detail-e
 
Спасибо!

Всего записей: 32 | Зарегистр. 29-03-2003 | Отправлено: 13:55 14-01-2006
Farkhad



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В PHP есть ф-ия microtime():

Цитата:
 
mixed microtime ( [bool get_as_float] )
 
Функция microtime() возвращает текущую метку времени с микросекундами. Эта функция доступна только на операционных системах, в которых есть системная функция gettimeofday().
 
При вызове без необязательного параметра, возвращается строка в формате "msec sec", где sec - это количество секунд, прошедших с начала Эпохи Unix (The Unix Epoch, 1 января 1970, 00:00:00 GMT), а msec - это дробная часть.

mixed microtime ( [bool get_as_float] )
 
microtime() returns the current Unix timestamp with microseconds. This function is only available on operating systems that support the gettimeofday() system call.
 
When called without the optional argument, this function returns the string "msec sec" where sec is the current time measured in the number of seconds since the Unix Epoch (0:00:00 January 1, 1970 GMT), and msec is the microseconds part. Both portions of the string are returned in units of seconds.

 

Вот пример:

Цитата:
 
0.57896400 1137236007
 

 
Как вычислить кол-во секунд мне уже подсказали:

Код:
 
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
 

 
А вот как вычислить кол-во миллисекунд?

Всего записей: 731 | Зарегистр. 03-08-2001 | Отправлено: 14:04 14-01-2006
Infomobile

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

Всего записей: 3 | Зарегистр. 22-12-2005 | Отправлено: 14:29 14-01-2006
Farkhad



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Infomobile
Нужно писать скрипт который будет отдавать ответ. Ответ в простейшем случае это текст.
Т.е. в конце скрипта пишешь что-то типа:

Код:
 
header("Content-type: text/plain");
...
 

Или даже не пишешь
А потом простой echo, например
 
Добавлено:
На форме 1 у меня установлено соединение с базой.
На форме 2 меню, по нажатию на пункт меню, в форму 2 подгружается нужный фрейм:
 

Код:
 
if assigned(Frame) then FreeandNil(Frame);
 
Frame := TFrame5.Create(Self);
Frame.Parent:=Form2;
 

 
У меня возникла проблема.
Во фрейме 5, я хочу вывести через DBGrid и ADOTable список юзеров.
Но приэтом я хочу юзать подключение к базе, которое уже установлено на форме 1,
и еще я не знаю как передать нужные параметры DBGrid и ADOTable (н-р, DataSource, Connection)

Всего записей: 731 | Зарегистр. 03-08-2001 | Отправлено: 14:45 14-01-2006
gpi

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

Цитата:
Функция microtime() возвращает текущую метку времени с микросекундами.


Цитата:
А вот как вычислить кол-во миллисекунд?

Так что же тебе нужно: миллисекунды или микросекунды? Если миллисекунды, то DecodeTime возвращает их в MSec

Цитата:
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);  


Всего записей: 432 | Зарегистр. 30-05-2004 | Отправлено: 16:21 14-01-2006
Farkhad



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
gpi
Про это вопрос закрываем, он уже решен

Всего записей: 731 | Зарегистр. 03-08-2001 | Отправлено: 16:27 14-01-2006
gpi

Alone Wanderer
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
chaugi
1-й вариант -внести изменения в реестр и перезагрузить компьютер
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]  
@="c_1251.nls"  
"1250"="c_1251.nls"  
"1252"="c_1251.nls"  
2-й вариант - http://delphi.olympus.ru/dk/treasury/clipboard.htm

Всего записей: 432 | Зарегистр. 30-05-2004 | Отправлено: 19:01 14-01-2006
chaugi



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
gpi
Спасибо, буду использовать второй метод, но не совсем понимаю куда эти данные вбивать?
Насколько понял, нужно в основном проекте вписать что uses RusClipboard и создать новый Unit, File->New->Unit и туда вставить этот текст который вы мне дали в качестве ссылки, но вот только не совсем это работает. Может я чего не так сделал? Может мне нужно использовать не стандартные комманды  Edit1.CopyToClipboard а новые?

Всего записей: 321 | Зарегистр. 16-03-2002 | Отправлено: 19:42 14-01-2006
Sergey1970



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
У кого есть информация/мысли по поводу автоматизации сборки проекта. Укажи где и что лежит толковое.

Всего записей: 55 | Зарегистр. 11-02-2003 | Отправлено: 21:02 14-01-2006
gpi

Alone Wanderer
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
chaugi
Нужно ещё добавить в uses clipbrd и использовать clipboard.AsText:=Edit1.Text;

Всего записей: 432 | Зарегистр. 30-05-2004 | Отправлено: 21:39 14-01-2006
stepan96



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день, коллеги!
 
Разрабатывается ПО для службы приема объявлений. Сами объявления хранятся на SQL-сервере (MS SQL Server 2000), а вот эти объявления необходимо выгружать в RTF-формате. Делать это через RichEdit не хочется, хочу напрячь сервак.  
 
Я представляю себе это так: в соответствии с типом объявления подготавливаем шаблон (определение параметров текста: шрифт, цвет, обрамление и пр.), а потом с помощью SQL функции REPLACE заменяем какую-нить предопределенную последовательность символов в шаблоне (например, ${TEXT}) текстом объявления.
 
Проблема возникает только в одном: в подготовке шаблона. Подскажите где можно найти информацию о структуре RTF-файла. Или может быть есть другой менее сложный путь решения данной задачи?
 
Спасибо!

Всего записей: 155 | Зарегистр. 28-01-2003 | Отправлено: 11:59 15-01-2006
YurikGL



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
>а вот эти объявления необходимо выгружать в RTF-формате.
Я бы посоветовал работать с xml, благо офис позволяет загружать XML документы
Схемы есть здесь:
 
http://www.microsoft.com/office/xml/default.mspx
http://www.microsoft.com/downloads/details.aspx?FamilyId=FE118952-3547-420A-A412-00A2662442D9&displaylang=en
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnexcl2k2/html/odc_xmlss.asp
 

Всего записей: 308 | Зарегистр. 02-09-2004 | Отправлено: 15:39 15-01-2006
stepan96



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YurikGL
>  Я бы посоветовал работать с xml, благо офис позволяет загружать XML документы  
 
К сожалению в xml не получается, т.к. для редактирования этого rtf-файла используется OpenOffice. И было решено использовать rtf-формат

Всего записей: 155 | Зарегистр. 28-01-2003 | Отправлено: 21:52 15-01-2006
ALeXkRU



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
stepan96
11:59 15-01-2006
Цитата:
где можно найти информацию о структуре RTF-файла

вот здесь - небольшой разбор с привязкой к программированию
это - спецификация формата от MS

Всего записей: 11998 | Зарегистр. 03-12-2003 | Отправлено: 02:39 16-01-2006
Admin CSB

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

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

 
А скрипт умеет "отвечать"? Если да, то простейший вариант - юзай компоненты Indy(Internet Direct), в частности для HTTP - idHTTP + там есть поддержка кукисов отдельным компонентом, если нужно.

----------
Не горюй, все не так плохо, как кажется... Все гораздо хуже....

Всего записей: 505 | Зарегистр. 23-01-2005 | Отправлено: 03:00 16-01-2006
SergeBS



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

Цитата:
 
 Делать это через RichEdit не хочется, хочу напрячь сервак.  
 

А положить сервак напрочь на этом не боишься? Решать подобные задачи на SQL-сервере - IMHO извращение. Ни один из оптимизаторов работать не будет - тормоза гарантированы.

Всего записей: 272 | Зарегистр. 19-04-2005 | Отправлено: 10:10 16-01-2006
   

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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi
ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru