Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/15: Рейтинг темы: голосов - 15, средняя оценка - 4.60
1 / 1 / 0
Регистрация: 04.01.2010
Сообщений: 13
1

Не могу установить компонент

29.01.2010, 14:09. Показов 3025. Ответов 3
Метки нет (Все метки)

Скачал готовый компонент
Delphi
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
 
unit LinkLabel;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
 
 
type
  tLinkType  = (ltfile,ltftp,ltgopher,lthttp,lthttps,ltmailto,ltnews,lttelnet,ltwais);
  TLinkLabel = class(TLabel)
  private
   FLinkType  : tLinkType;
   FHyperLink : String;
 
   Procedure SetLinkType(LinkType:tLinkType);
   Procedure SetHyperLink(HyperLink:String);
  protected
   procedure EvLButtonDown(var M : TWMMouse); message WM_LBUTTONDOWN;
  public
   constructor create(AOwner:TComponent);override;
   destructor destroy;override;
  published
   property LinkType : tlinkType read FLinkType Write SetLinkType;
   property HyperLink: String read Fhyperlink write SetHyperLink;
  end;
 
procedure Register;
 
implementation
 
Function ShellExecute(hWnd:HWND;lpOperation:Pchar;lpFile:Pchar;lpParameter:Pchar;
                      lpDirectory:Pchar;nShowCmd:Integer):Thandle; Stdcall;
External 'Shell32.Dll' name 'ShellExecuteA';
 
Procedure tLinkLabel.SetLinkType(LinkType:tLinkType);
Begin
 If FLinkType<>LinkType then FlinkType:=LinkType;
End;
 
Procedure tLinkLabel.SetHyperLink(HyperLink:String);
Begin
 FHyperLink:=HyperLink;
 if caption='' then
  Caption:=FHyperLink;
End;
 
Constructor tLinkLabel.create(AOwner:TComponent);
Begin
 inherited Create(AOwner);
 Parent:=(AOwner as tForm);
 LinkType:=ltHttp;
 Font.Style:=[fsUnderline];
 Font.Color:=clblue;
 Cursor:=crhandPoint;
 Caption:='';
End;
 
Destructor tLinkLabel.destroy;
Begin
 inherited destroy;
End;
 
 
procedure tLinkLabel.EvLButtonDown(var M : TWMMouse);
var
 commandline : string;
Begin
 if linktype=ltfile then commandline:='file://'+hyperlink else
 if linktype=ltftp then commandline:='ftp://'+hyperlink else
 if linktype=ltgopher then commandline:='gopher://'+hyperlink else
 if linktype=lthttp then commandline:='http://'+hyperlink else
 if linktype=lthttps then commandline:='https://'+hyperlink else
 if linktype=ltmailto then commandline:='mailto:'+hyperlink else
 if linktype=ltnews then commandline:='news:'+hyperlink else
 if linktype=lttelnet then commandline:='telnet:'+hyperlink else
 if linktype=ltwais then commandline:='wais:'+hyperlink;
 
 ShellExecute(Parent.Handle,'Open',pchar(commandline),Nil,nil,SW_SHOWNORMAL);
End;
 
procedure Register;
begin
  RegisterComponents('Jazarsoft', [TLinkLabel]);
end;
 
end.
пытаюсь его установить..делаю так
File > new package
в package > add (добавляю этот .pas файл)
нажимаю compile, затем install (все это появляется при нажатии правой кнопки мыши на package)

Мне выводится сообщение Unable to install package... (невозможно установить пакет)
Вроде все делаю правильно но не получается?? может кто знает?

P.S. Delphi CodeGear 2009
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.01.2010, 14:09
Ответы с готовыми решениями:

Не могу установить компонент для работы с ZIP на Delphi XE5
Скачал компоненты и не могу установить. Всяко пробовал и ничего не получается. Устанавливаю...

Помогите установить компонент
Здраствуйте, скачал с нета компонент для работы с ком-портом TComm_32, а установить его не могу, в...

Как установить компонент
Несколько проблем. 1). Нашел компонент TGradButton на офф сайте. Дальше - непонятно. Снизу есть ...

Не могу установить компонент
Здравствуйте. Скажите пожалуйста как установить dpk компоненты? делаю все как полодено...

3
38 / 38 / 6
Регистрация: 28.11.2009
Сообщений: 90
29.01.2010, 15:04 2
вы же устанавливаете как Пакет компонент а не как один компонент вот и выдает ошибку, что пакет найти не может.
Посмотрите на рисунок так надо устанавливать выберите install Component. потом прописаейте путь к компоненту
0
Миниатюры
Не могу установить компонент  
1 / 1 / 0
Регистрация: 04.01.2010
Сообщений: 13
29.01.2010, 15:29  [ТС] 3
я и так пробывал, но тоже самое
я создавал новый компонент > выбирал предка > сохранял > делал package > компилировал > инсталировал но тоже самое выдавало.
0
Миниатюры
Не могу установить компонент  
Retired
7721 / 2553 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
29.01.2010, 21:04 4
1. Берете вот этот код
Delphi
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
unit LinkLabel;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
 
 
type
  tLinkType  = (ltfile,ltftp,ltgopher,lthttp,lthttps,ltmailto,ltnews,lttelnet,ltwais);
  TLinkLabel = class(TLabel)
  private
   FLinkType  : tLinkType;
   FHyperLink : String;
 
   Procedure SetLinkType(LinkType:tLinkType);
   Procedure SetHyperLink(HyperLink:String);
  protected
   procedure EvLButtonDown(var M : TWMMouse); message WM_LBUTTONDOWN;
  public
   constructor create(AOwner:TComponent);override;
   destructor destroy;override;
  published
   property LinkType : tlinkType read FLinkType Write SetLinkType;
   property HyperLink: String read Fhyperlink write SetHyperLink;
  end;
 
procedure Register;
 
implementation
 
Function ShellExecute(hWnd:HWND;lpOperation:Pchar;lpFile:Pchar;lpParameter:Pchar;
                      lpDirectory:Pchar;nShowCmd:Integer):Thandle; Stdcall;
External 'Shell32.Dll' name 'ShellExecuteA';
 
Procedure tLinkLabel.SetLinkType(LinkType:tLinkType);
Begin
 If FLinkType<>LinkType then FlinkType:=LinkType;
End;
 
Procedure tLinkLabel.SetHyperLink(HyperLink:String);
Begin
 FHyperLink:=HyperLink;
 if caption='' then
  Caption:=FHyperLink;
End;
 
Constructor tLinkLabel.create(AOwner:TComponent);
Begin
 inherited Create(AOwner);
 Parent:=(AOwner as tForm);
 LinkType:=ltHttp;
 Font.Style:=[fsUnderline];
 Font.Color:=clblue;
 Cursor:=crhandPoint;
 Caption:='';
End;
 
Destructor tLinkLabel.destroy;
Begin
 inherited destroy;
End;
 
 
procedure tLinkLabel.EvLButtonDown(var M : TWMMouse);
var
 commandline : string;
Begin
 if linktype=ltfile then commandline:='file://'+hyperlink else
 if linktype=ltftp then commandline:='ftp://'+hyperlink else
 if linktype=ltgopher then commandline:='gopher://'+hyperlink else
 if linktype=lthttp then commandline:='http://'+hyperlink else
 if linktype=lthttps then commandline:='https://'+hyperlink else
 if linktype=ltmailto then commandline:='mailto:'+hyperlink else
 if linktype=ltnews then commandline:='news:'+hyperlink else
 if linktype=lttelnet then commandline:='telnet:'+hyperlink else
 if linktype=ltwais then commandline:='wais:'+hyperlink;
 
 ShellExecute(Parent.Handle,'Open',pchar(commandline),Nil,nil,SW_SHOWNORMAL);
End;
 
procedure Register;
begin
  RegisterComponents('Jazarsoft', [TLinkLabel]);
end;
 
end.
и сохраняете его как LinkLabel.pas
2. Нажимаете как Вам писали выше Install Component...
3. На вкладке Into exsisting package нажимаете на Browse напротив Unit file name и выбираете свой LinkLabel.pas. Нажимаете на Ok
4. Далее нажимаете Compile

ps. Аналогичный компонент есть в пакете Raize Components, только он там лучше и установка пакета автоматическая.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.01.2010, 21:04

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Установить компонент на BitButton
#include &lt;vcl.h&gt; #pragma hdrstop #include &quot;Unit1.h&quot; #pragma package(smart_init) #pragma...

Как установить Компонент
Всем привет . Кто нибудь помогите на Rad Studio Xe 2 установить компоненты TClientSocket &amp;...

Помогите установить компонент
помогите установить компонент http://d_epositfiles.com/ru/files/8716051 . до этого ещё ни разу не...

Не могу установить Windows из-за того,что не могу сделать выбор установки
Подскажите, я устанавливаю виндовс XP,с диска,на экране высвечивает загруска с диска С, ниже...

Делфи 2007 Установить компонент
Помогите установить новый компонент кто знает объясните в кратце.

Как установить компонент на Delphi 7
Помогите не могу установить компонент TLCDScreen v3.0 на Delphi 7


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.