Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];
ВнизWin 9X и WinNT в чем проблема? Найти похожие ветки
← →
@Ujin (2003-09-28 16:02) [0]Не видно функций под Windows 98/95.
Экспортирую dll функции следующего содержания:
//--------------------------------------------------------------
procedure WORKFORMINFO(P: Pointer); stdcall;
var MI: TMenuItemRec;
FITER{, FINTP}: PWorkFormInfo;
begin
with MI do begin
Caption := "Форма 1-тэр";
Hint := "Открыть форму 1-тэр";
TurnMenuItem := _FormsMenuCaption;
Command := "CreateForm TER1";
StringID := "TER1";
Enabled := True;
Icon := TIcon.Create;
Icon.Assign(GRI(GetModuleHandle(PChar("ter1.dll")), "TER1ICON"));
end;
RegisterMenuItem(MI);
TList(P).Clear;
New(FITER);
with FITER^ do begin
StringID := "TER1";
ClassName := "Tfrm1TEREnter";
LongName := "Форма 1-тэр";
Implementor := "TER1 IMPLEMENTOR";
PeriodType := 1; { 1 - месяц; 3 - квартл; 12 - год }
end;
TList(P).Add(FITER);
end;
procedure EnumClasses(P: Pointer); stdcall;
begin
jEnumClasses(["DM TER1", "TER1", "NTP1"], [TDM1TER, Tfrm1TEREnter, Tfrm1ntp], P);
end;
exports
EnumClasses,
WORKFORMINFO;
//--------------------------------------------------------------
Проблема в том, что под WinNT (т.е. WinXP все видно и замечательно работает, а вот под 98 и 95 их вовсе не видно в списке экспорта. Чтобы это могло быть. Заранее благодарен.
EnumClasses экспортируется и другими библиотеками, но с ними все в порядке. Ничего не понимаю... :(
← →
HolACost! (2003-09-28 16:03) [1]перекомпиль под 98
← →
@Ujin (2003-09-28 16:06) [2]HolACost! -> Оно конечно можно перекомпилировать под 98 но хочется и до сути проблемы докапаться. В дальнейшем подобные функции придется использовать в подобных библиотеках, и передавать придется не только ссылки на классы и интерфейсы, но и стеки объектов...
← →
@Ujin (2003-09-28 16:16) [3]Никто не сталкивался?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c