Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
kavak

Ошибка при компиляции

18.05.2012, 16:02. Показов 1401. Ответов 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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
unit Common;
 
interface
 
uses
  INIFiles, Classes, Forms, Windows, SysUtils, DateUtils, Controls, XOREncodingUnit;
 
const
  mdNew:Integer=0;
  mdEdit:Integer=1;
  mrConnected=1024;
  //DefaultQuery:String='Select * From';//Главный запрос по умолчанию
  Key:String='6jhgh5676rhftu469';
  MSG_SaveError:String='Ошибка сохранения';
  MSG_DatasetClosed:String='Набор данных закрыт';
  sbUse=0;
  sbNotUse=1;
  sbByVersion=2;
 
type
 
TChars=set of Char;
 
var
  DirPath:String;
  INIFile:TINIFile;
  ConString:String;
  DataSource:String;
  Pass:String;
  UserName:String;
  BasePath:String;
  Stream:TStream;
  ComputerName:String;
  Digits:TChars=['0'..'9'];
  Admin:Boolean;
  SuggestSort:Boolean;
 
function WritePswd(Pswd:String):Boolean;
function ReadPswd():String;
//function CreateConString(const UserName,DataSource,Pass:String):String;
function FindMonth(D,D1,D2:TDate):Word;inline;
 
 
implementation
 
function WritePswd(Pswd:String):Boolean;
var P:TArrayOfByte;
    i:Integer;
begin
Result:=false;
Randomize;
SetLength(P,64);
for i:=0 to 63 do P[i]:=Random(255);
if Pswd='' then Pswd:='#13';
P[4]:=Length(Pswd);
move(Pswd[1],P[10],P[4]);
P:=XOREncoding(P,Key,0,High(P));
try
Stream:=TFileStream.Create(DirPath+'Pswd.dat',fmCreate or fmShareExclusive);
Stream.Seek(0,soFromBeginning);
Stream.Write(Pointer(P)^,64);
Result:=true;
finally
Stream.Free;
Stream:=nil;
end;
 
end;
 
function ReadPswd():String;
var P:TArrayOfByte;
begin
Result:='';
if FileExists(DirPath+'Pswd.dat') then
  begin
  try
  Stream:=TFileStream.Create(DirPath+'Pswd.dat',fmOpenRead or fmShareExclusive);
  Stream.Seek(0,soFromBeginning);
  SetLength(P,64);
  Stream.Read(Pointer(p)^,64);
  P:=(XOREncoding(P,Key,0,High(P)));
  SetLength(Result,P[4]);
  Move(P[10],Result[1],P[4]);
  if Result='#13' then Result:='';
  finally
  Stream.Free;
  Stream:=nil;
  end;
  end;
end;
 
Procedure GetCompName;
var P:PANSIChar;
    L:DWord;
begin
L:=255;
GetMem(P,L);
GetComputerName(P,L);
ComputerName:=ANSIString(P);
end;
 
function FindMonth(D,D1,D2:TDate):Word;
begin
if ((D>D1) and (D<D2)) then Result:=MonthOf(D)
                       else Result:=0;
end;
 
{function CreateConString(const UserName,DataSource,Pass:String):String;
begin
Result:='Provider='+IniFile.ReadString('Connection','Provider','SQLOLEDB.1')+';'+
'Persist Security Info='+IniFile.ReadString('Connection','Persist Security Info','False')+';'+
'User ID='+UserName+';'+
'Password='+Pass+';'+
'Initial Catalog='+IniFile.ReadString('Connection','Initial Catalog','Metrol')+';'+
'Data Source='+DataSource+';'+
'Use Procedure for Prepare='+IniFile.ReadString('Connection','Use Procedure for Prepare','1')+';'+
'Auto Translate='+IniFile.ReadString('Connection','Auto Translate','True')+';'+
'Packet Size='+IniFile.ReadString('Connection','Packet Size','4096')+';'+
'Workstation ID='+IniFile.ReadString('Connection','Workstation ID','')+';'+
'Use Encryption for Data='+IniFile.ReadString('Connection',
  'Use Encryption for Data','False')+';'+
'Tag with column collation when possible='+IniFile.ReadString('Connection',
  'Tag with column collation when possible','False')+';';
 
end;   }
 
initialization
 
DirPath:=ExtractFilePath(Application.ExeName);
INIFile:=TINIFile.Create(DirPath+'Config.ini');
//GetCompName;
 
 
end.
А вот сама ошибка:
[DCC Fatal Error] Common.pas(6): F1026 File not found: 'XOREncodingUnit.dcu'
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.05.2012, 16:02
Ответы с готовыми решениями:

ошибка при компиляции
подскажите пожалуйста как исправить данную ошибку &quot;Project project.exe raised exception class EClassNotFound with message 'Class Timage not...

Ошибка при компиляции в Delphi 10.2
У меня стоит Делфи 10.2 и при первой компиляции программы все нормально, она запускается и работает, но при последующей выскакивает ошибка ...

Ошибка при компиляции в Delphi
Здравствуйте! Работаю над проектом &quot;Библиотека&quot; на Delphi. Застряла на месте из за ошибок возникших при компиляции. Кто знает что это за...

3
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
18.05.2012, 16:11
Значит нет у Вас этого модуля, это не стандартный модуль Делфи.
0
kavak
18.05.2012, 16:14
Вот оно что,я сам не программист,вот из представленного кода можно как то убрать этот ксор?
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
18.05.2012, 16:44
Убрать не проблема, просто удалить его из списка модулей в разделе uses, но если в программе используются методы этого модуля, то программа не будет работать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.05.2012, 16:44
Помогаю со студенческими работами здесь

Странная ошибка при компиляции
Пишу элементарный код, допустим Form1.Label1.Caption:='anystring' или If Form1.CheckBox1.Cheked=true then... При компиляции вылазиет...

Ошибка Delphi 7 на компиляции при установке
Уважаемые подскажите. Не ставится делфи. На этапе компиляции вылезает ошибка. Говорит что дебагер не будет работать.(так и есть делфи...

Ошибка при компиляции [not found: Controls.dcu]
При компиляции dll компилятор выдает ошибку: NPVisualPlugin.pas(93): F1026 File not found: 'D:\ххх\Luminace Player\Controls.dcu' В...

При компиляции программы происходит ошибка, что делать?
Доброго времени суток ,писал себе курсовую, ни кого не трогал ,и тут бац откуда не возьмись вот такая, ошибка никак не могу понять откуда...

Ошибка при компиляции БД в делфи
unit m0; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ВОТ ЗДЕСЬ...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru