Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.022 c
7-19361           Прикольщик            2001-12-03 21:05  2002.03.07  
Буду орать до тех пор пока хоть кто нибудь не откликнется! Люди добрые помогите!


3-19056           Potemkin              2002-02-07 09:38  2002.03.07  
DBGrid


6-19272           ilg                   2001-12-20 12:00  2002.03.07  
Windows socket error: (10049), on API connect - что это значит!!!


1-19228           dart                  2002-02-19 12:21  2002.03.07  
Один вопрос... :)


1-19240           Lord Vader            2002-02-20 06:59  2002.03.07  
СРОЧНО НУЖЕН ФИЛЬТР СТРОКИ ДЛЯ ДИПЛОМА!!!