Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Помогите найти библиотеки *.bpl, TMLinesDbGrid,TSpeedBar,TRxTrayIcon... 
:(
    Опции темы
svetlanalanya
Дата 25.10.2006, 09:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 24.10.2006

Репутация: нет
Всего: нет
Код

файл scMainForm.pas

unit scMainForm;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, TrayIcon, FileCtrl, Db, DBTables, ExtCtrls;

type
TfrmMain = class(TForm)
PopupMenu1: TPopupMenu;
mnuClose: TMenuItem;
N1: TMenuItem;
mnuRunSms: TMenuItem;
mnuDayReport: TMenuItem;
Timer1: TTimer;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
procedure mnuCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure mnuRunSmsClick(Sender: TObject);
function StartQSms(CommandLine:string;FileName:string) : Boolean;
procedure mnuDayReportClick(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
//
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

uses scfrmDayReport;

{$R *.DFM}
//------------------------------------------------------------------------------
procedure TfrmMain.mnuCloseClick(Sender: TObject);
begin
Close;
end;
//------------------------------------------------------------------------------
procedure TfrmMain.FormCreate(Sender: TObject);
begin
Icon.IconVisible := True;
frmDayReport := nil;
Try
mnuDayReportClick (Self);
except
on EDataBaseError do

end;
end;
//------------------------------------------------------------------------------
procedure TfrmMain.mnuRunSmsClick(Sender: TObject);
var
Drive : char;
DirPart: string;
ExeFile: string;
begin
If (FindWindow(PChar('TMainForm'), nil) = 0) then
begin
ProcessPath (Application.ExeName, Drive, DirPart,ExeFile);
ExeFile := Drive + ':' + DirPart + '\QSms.exe';
StartQsms(ExeFile, '');
end;
end;
//------------------------------------------------------------------------------
function TfrmMain.StartQSms(CommandLine:string;FileName:string) : Boolean;
var
pCommandLine : array [0..MAX_PATH] of char;
pFileName : array [0..MAX_PATH] of char;
StartupInfo : TStartupInfo;
ProcessInfo : TProcessInformation;
begin
try
StrPCopy(pCommandLine,CommandLine);
FileName:=CommandLine + ' '+ FileName;
StrPCopy(pFileName,FileName);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
StartupInfo.wShowWindow :=SW_NORMAL;
Result:= CreateProcess(nil,pFileName,nil,nil,True,NORMAL_PRIORITY_CLASS,
nil,nil,StartupInfo,ProcessInfo);
If Result then
begin
//hAppProcess:= ProcessInfo.hProcess;
end;
finally
//If (hAppProcess<>0) then CloseHandle(hAppProcess);
end;
end;
//------------------------------------------------------------------------------
procedure TfrmMain.mnuDayReportClick(Sender: TObject);
var
Year, Month, Day : Word;
begin
if (frmDayReport <> nil) then Exit;
DecodeDate (Now(), Year, Month, Day);

Application.CreateForm (TfrmDayReport, frmDayReport);

//if not frmDayReport.tbDepartments.Active then frmDayReport.tbDepartments.Open;

if (frmDayReport.qryDepInt.Active) then frmDayReport.qryDepInt.Close;
frmDayReport.qryDepInt.ParamByName ('KeyId').AsInteger := frmDayReport.tbParamsDefaultDepartment.Value;
frmDayReport.qryDepInt.Open;

if (frmDayReport.qryDepExt.Active) then frmDayReport.qryDepExt.Close;
frmDayReport.qryDepExt.ParamByName ('KeyId').AsInteger := frmDayReport.tbParamsDefaultDepartment.Value;
frmDayReport.qryDepExt.Open;

if (frmDayReport.qryWorks.Active) then frmDayReport.qryWorks.Close;
frmDayReport.qryWorks.ParamByName ('KeyId').AsInteger := frmDayReport.tbParamsDefaultDepartment.Value;
frmDayReport.qryWorks.Open;

if (frmDayReport.qrySmsCorrection.Active) then frmDayReport.qrySmsCorrection.Close;
frmDayReport.qrySmsCorrection.Open;

if (frmDayReport.qryInDoc.Active) then frmDayReport.qryInDoc.Close;
frmDayReport.qryInDoc.ParamByName ('DepKeyId').AsInteger := frmDayReport.tbParamsDefaultDepartment.Value;
frmDayReport.qryInDoc.ParamByName ('year').AsInteger := Year;
frmDayReport.qryInDoc.Open;

if (frmDayReport.qryWorks.RecordCount = 0) and
(frmDayReport.qryDepExt.RecordCount = 0) and
(frmDayReport.qryDepInt.RecordCount = 0) and (frmDayReport.qrySmsCorrection.RecordCount = 0) then
begin
MessageDlg ('Ii Aaoaio iia?acaaeaie? iaauiieiaiiuo ?aaio eee ianiioaaonoaee a nenoaia IEOA ia auyaeaii.',
mtInformation, [mbOk], 0);
Timer1.Enabled := False;
end
else
begin
if frmDayReport.tbDepartments.Locate ('KeyId', frmDayReport.tbParamsDefaultDepartment.Value, []) then
frmDayReport.ShowModal;
end;

frmDayReport.Free;
frmDayReport := nil;
end;
//------------------------------------------------------------------------------
procedure TfrmMain.N3Click(Sender: TObject);
begin
WinExec (PChar('Transport.exe'), 0)
end;
//------------------------------------------------------------------------------
procedure TfrmMain.N4Click(Sender: TObject);
begin
WinExec (PChar('Documents.exe'), 0)
end;
//------------------------------------------------------------------------------
end.
end;


ошибка :

[Hint scfrmDayReport.pas(170):Variable 'Present' is declared but never used in 'TfrmDayReport.FormCreate']
[Error] scMainForm.pas(49):Undeclared identifier:'IconVisible'
[Fatal Error] AutoRun.dpr(6):Could not compile used unit 'scMainForm.pas'

подсвечивает :

procedure TfrmMain.FormCreate(Sender: TObject);
begin
Icon.IconVisible := True; !!!!!!!!! эту строчку
frmDayReport := nil;
Try
mnuDayReportClick (Self);
except
on EDataBaseError do

end;
PM MAIL   Вверх
Alexeis
Дата 25.10.2006, 09:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
svetlanalanya, а сам объект Icon существует?


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
svetlanalanya
Дата 25.10.2006, 12:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 24.10.2006

Репутация: нет
Всего: нет
alexeis1, глупый вопрос но где это посмотреть : а сам объект Icon существует
PM MAIL   Вверх
Alexeis
Дата 25.10.2006, 12:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
svetlanalanya,  smile Глупый вопрос задал я Icon - это глобальный объект, который есть в любой программе. Но вот судя по ошибке Проект был сделан на более новой версии делфи, чем та что имеется у вас, так как в вашей версии этого поля еще не было. Рекомендую установить ту же версию делфи. Или самую новую (так надежнее)


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
svetlanalanya
Дата 25.10.2006, 12:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 24.10.2006

Репутация: нет
Всего: нет
прога написана на Дельфи 5. у меня вроде тоже 5, но буду пробывать поставить 7.

спасибки за помощи и понимание, солнцеsmile)
PM MAIL   Вверх
Alexeis
Дата 25.10.2006, 14:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Нет что-то не сходится. Нет такого свойства Icon.IconVisible у TIcon даже в Delphi2005.
Дело в чем-то другом. Вообще эта строчка странная, возможно когда-то существовал другой объект с именем Icon (Объект другого класса, например класса TRxTrayIcon), а сейчас он отсутствует и компилятор пытается найти указанное свойство у объекта формы и соответственно его не находит.

С версией я погорячился  smile 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
svetlanalanya
Дата 25.10.2006, 15:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 24.10.2006

Репутация: нет
Всего: нет
советуют установить еще вот что : JVCL не знаю об этом ничего.

Я разбираю только один модуль а их 4 шт. и ошибки похоже может не верно настроила что-то или прописала или недоустановила
PM MAIL   Вверх
svetlanalanya
Дата 25.10.2006, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 24.10.2006

Репутация: нет
Всего: нет
Сейчас взяла все настроики на сервере и на клиенте, от автора осталась папка но в ней черт не разбереться. Хочу сделать чтобы на своей машине был и сервер и клиент и копать, копать.
Не понимаю связь на ... нужна MSQL Server,BDE,ODBC И как все на одной машине все связать, чтобы можно было что хощь делать. 

или так ничего не выйдет что и клиент и сервер лано будет копать 


CrystalVCL5 есть еще такая вот папке и в ней exe файл который при распоковке дает папку и в ней файлы *.dfm и *.pas и *.dcu 
PM MAIL   Вверх
Alexeis
Дата 25.10.2006, 15:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
svetlanalanya, Да нет судя потому что их немного, стоит все уже верно!
Цитата(svetlanalanya @  25.10.2006,  15:23 Найти цитируемый пост)
советуют установить еще вот что : JVCL не знаю об этом ничего.

Не стоит, если они тут не использовались. Не люблю я их палитра разрастается до невероятных размеров, а толку с них мало. Среди модулей я не вижу ни одного из пакета JVCL. Это еще тот монстр!


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Akella
Дата 26.10.2006, 13:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
Цитата(alexeis1 @  24.10.2006,  13:16 Найти цитируемый пост)
Akella, в lib они автоматом копируются.

зачем тогда в Search?
PM MAIL   Вверх
Alexeis
Дата 26.10.2006, 13:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата(Akella @  26.10.2006,  13:25 Найти цитируемый пост)
зачем тогда в Search? 

Search определяет местонахождение *.dcu *.pas.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Akella
Дата 26.10.2006, 13:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
Цитата(svetlanalanya @  25.10.2006,  15:39 Найти цитируемый пост)
нужна MSQL Server,BDE,ODBC 

ODBC по-умолчанию уже есть в виде, а BDE ставиться с Delphi (см. панель управления системы)
MSQL - это Microsoft SQL Server - ставиться как отдельный продукт
PM MAIL   Вверх
Alexeis
Дата 26.10.2006, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Вот пожалуйста, все внешние компоненты у меня стоят в недефолтных папках, а в папке
D:\Program Files\Borland\Delphi7\Projects\Bpl
у меня следующие файлы DSPackDesign_D7.bpl, DirectX9_D7.bpl, TntUnicodeVcl_R70.bpl, OrtusShellComponentsD7.bpl, MirrorKOLPackageD7.bpl, IW70.bpl и соответствующие им *.dcp пакеты.
Туда они сами прописались. 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Akella
Дата 26.10.2006, 13:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
Цитата(alexeis1 @  26.10.2006,  13:32 Найти цитируемый пост)
Search определяет местонахождение *.dcu *.pas. 

не знаю... никогда туда не лезу, не видел ни в каких компонентах, чтобы было упомянуто Search
PM MAIL   Вверх
Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0793 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.