» Вопросы по Delphi

YFred

Вкладка - Project Option - Version Info
Включить галочки - Include version information in project,
и Auto-increment build number.
А потом запускать Build Project, а не Compile. И все должно работать.

Помогите решить проблему.
Есть 2 формы Form1 и Form2. Главная форма - Form1. Нужно сделать так, что бы при создании Form2 первая становилась невидимой, а 2 вела бы себя как главная. Т.е. мне нужно скрыть первую с панели задач и поместить туда вторую, и наоборот.
НАдеюсь понятно написал

ShamaN
А вот это чуть повыше http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=1160#4 ,.. вроде как тоже самое. Или нет

Z MeZe, а та ссылка, что ты дал, куда указывает-то вообще?

сори, заработало.

Добавлено:
Z MeZe, нет, это не то. Мне нужно не просто скрвть главную форму, а сделать при этом вторую главной.

ShamaN
А что тогда значит:
Цитата:

а 2 вела бы себя как главная

ShamaN

т.е. тебе заставку к программе нужно сделать?

PowerChute
Спасибо все заработало, я просто делал Compile, а не Build Project.

Z MeZe, это значит, что она должна сварачиваться не в правый левый угол, а в панель задач. В идеале - поменять родительское окно с Form1 на Form2.


sunduk4, нет, это не заставка. У меня есть главное окно, в котором вводится логин/пароль. Если все верно - создается Form2. После закрытия Form2 родителькое окно должно смениться на Form1.

Цитата:

поменять родительское окно с Form1 на Form2.

Такого в явном виде сделать нельзя. (Ну, по крайней мере внутри одного приложения, насколько я знаю, условия принадлежности к главной форме определяется на этапе загрузки в *.dpr). То есть нужно по какому-то условию выбрать порядок загрузки в головном файле:

Код: ...
if {...} then
Application.CreateForm(TForm1, Form1)
else
Application.CreateForm(TForm2, Form2);
Application.Run;
...

Z MeZe, задачу я сам себе поставил
раз она не решается, может подскажешь, как правильнее сделать?

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

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

Z MeZe, спасибо. Буду пробовать.

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

Edit1.CopyToClipboard;

Спасибо.

Есть связка Master/Detail в cxGrid-e в Detail-e есть Summary, нужнл при изменение итога по Detail изменить соответственно и запись в Mastere. Как правилно ето сделать оставаясь в Detail-e

Спасибо!

В 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);

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

Infomobile
Нужно писать скрипт который будет отдавать ответ. Ответ в простейшем случае это текст.
Т.е. в конце скрипта пишешь что-то типа:

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

Farkhad

Цитата:

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

Цитата:

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

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

Цитата:

procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);

gpi
Про это вопрос закрываем, он уже решен

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

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

У кого есть информация/мысли по поводу автоматизации сборки проекта. Укажи где и что лежит толковое.

chaugi
Нужно ещё добавить в uses clipbrd и использовать clipboard.AsText:=Edit1.Text;

Добрый день, коллеги!

Разрабатывается ПО для службы приема объявлений. Сами объявления хранятся на SQL-сервере (MS SQL Server 2000), а вот эти объявления необходимо выгружать в RTF-формате. Делать это через RichEdit не хочется, хочу напрячь сервак.

Я представляю себе это так: в соответствии с типом объявления подготавливаем шаблон (определение параметров текста: шрифт, цвет, обрамление и пр.), а потом с помощью SQL функции REPLACE заменяем какую-нить предопределенную последовательность символов в шаблоне (например, ${TEXT}) текстом объявления.

Проблема возникает только в одном: в подготовке шаблона. Подскажите где можно найти информацию о структуре RTF-файла. Или может быть есть другой менее сложный путь решения данной задачи?

Спасибо!

>а вот эти объявления необходимо выгружать в 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

YurikGL
> Я бы посоветовал работать с xml, благо офис позволяет загружать XML документы

К сожалению в xml не получается, т.к. для редактирования этого rtf-файла используется OpenOffice. И было решено использовать rtf-формат

stepan96
11:59 15-01-2006
Цитата:

где можно найти информацию о структуре RTF-файла

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

Infomobile

Цитата:

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

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

stepan96

Цитата:

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

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