Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
ВнизПоможете чайнику? Найти похожие ветки
← →
[Genius] (2002-02-16 10:55) [0]Вопрос у меня такой:
программа у меня делает raise exception и при этом вылетает окно, которое информирует меня об этом, а как мне сделать, чтобы оно не вылетало?
← →
Набережных С. (2002-02-16 11:51) [1]Имеется в виду отключить сообщения отладчика?
Tools|Debugger Options|Language Exceptions|Stop on Delphi Exceptions
← →
Igor_ (2002-02-16 12:23) [2]Можно запихать код, который вызывает исключение в
try
Те процедуры которые вызывают исключение
except
Что делать, если исключение возникло (можно ничего не делать
как ты хочешь)
end;
← →
Anatoly Podgoretsky (2002-02-16 13:32) [3]Поставить "//" перед raise exception
← →
[Genius] (2002-02-17 08:09) [4]хм... не помогает... все равно в самом приложении вылазиет "Invalid pointer operation"... это у меня из=за dll, хотя что там может быть такого...
вот вам мой код dll найдите ошибку:
library dll;
uses
sysutils,Classes;
function checka(indexx:integer):string;stdcall;
begin
case indexx of
0:result:="comp";
1:result:="IBM";
3:result:="proc";
4:result:="mother";
5:result:="videocard";
6:result:="sound";
7:result:="oper";
8:result:="hard";
9:result:="cd";
10:result:="cdr";
11:result:="dvd";
14:result:="monitor";
15:result:="TFT";
16:result:="printer";
17:result:="akustic";
18:result:="VFX";
20:result:="klav";
21:result:="scan";
22:result:="photo";
23:result:="mouse";
24:result:="digit";
26:result:="momed";
28:result:="notebook";
27:result:="palm";
end;
end;
function kolvo(indexx:integer):integer;stdcall;
begin
case indexx of
0:result:=3;
1:result:=3;
3:result:=3;
4:result:=2;
5:result:=1;
6:result:=1;
7:result:=1;
8:result:=2;
9:result:=0;
10:result:=3;
11:result:=1;
14:result:=3;
15:result:=2;
16:result:=5;
17:result:=1;
18:result:=1;
20:result:=2;
21:result:=1;
22:result:=3;
23:result:=2;
24:result:=0;
26:result:=4;
28:result:=8;
27:result:=6;
end;
end;
exports kolvo,checka;
end.
← →
Mbo (2002-02-17 11:10) [5]в списке uses первым поставь sharemem
← →
[Genius] (2002-02-17 12:51) [6]не помогает... :(
← →
[Genius] (2002-02-18 10:13) [7]мастера? вы где?
← →
drpass (2002-02-18 10:34) [8]В списке uses и библиотеки, и проекта первым поставь sharemem и перекомпилируй все! [блин]
← →
Юрий Зотов (2002-02-18 11:42) [9]> найдите ошибку
Вот она:
function checka(indexx: integer): string;
Когда Вы сказали "New... DLL", Delphi выдала Вам заготовку кода с длинным-длинным комментарием. Для чего? Для того, чтобы Вы удалили его, даже не прочитав?
См. ShareMem.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c