детская проблема с компилированием DLL

← →
B-boy Dimo-N (2004-09-21 19:29) [0]

Дело вот в чём: есть у меня dll.
library auxiliary;
uses SysUtils, Classes;

{$R *.res}

Function ScanPartitionStr(InStr:string):string;
Var OutStr:string; N:integer;
Begin
OutStr:="";
For N:=1 To Length(InStr) Do
begin
if InStr[N]="|" then OutStr:=OutStr+#13
else OutStr:=OutStr+InStr[N];
end;
ScanPartitionStr:=OutStr;
End;

Function CorrectPath(InStr:string):string;
Var count : integer;
OutStr : string;
Begin
OutStr:="";
count := Length(InStr);
if InStr[count] <> "\" then OutStr := InStr + "\"
else OutStr := InStr;
CorrectPath := OutStr;
End;

Function GetDateCreateRpt():string;
Const Months: array [1..12] of Pchar =("??????","???????","?????","??????","???","????","????","???????","????????","???????","??????","???????");
Var Year, Month, Day :Word;
OutStr:string;
Begin
DecodeDate(Now,Year, Month, Day); {?????? ????,?????,??? ?? ?????? ??????}
OutStr:="?? ????????? ?? ""+IntToStr(Day)+"" "+Months[Month]+" "+IntToStr(Year)+" ?.";
GetDateCreateRpt:=OutStr;
End;

Exports ScanPartitionStr, CorrectPath, GetDateCreateRpt;

begin
end.

Как видно в ней 3 функции: первые 2 принимают по одному параметру, третья не принимает. Так вот, как мне её откомпилировать? какие параметры задать функциям? Я компилирую её следующим образом: Run/Parameters... в окне Parameters ввожу 2 параметра через пробел. Библиотека не компилится. Может я что не так делаю?

← →
Palladin © (2004-09-21 19:33) [1]

ты поди ее запустить пытаешься...

← →
jack128 © (2004-09-21 19:37) [2]

Эта... Как всегда, в общем то. F9. Запустить ты, ессесено, нечего не сможешь, но dll"ку на выходе получишь... Отладка делается через указание host приложения...

← →
B-boy Dimo-N (2004-09-22 14:11) [3]

Мммм дяяя, комментирую 2 функции, третью оставляю (притом не важно какие), нажимаю F9. Далее копмилирую свой проект, вроде функуия сробатывает, но потом, при закрытии проекта Функцией Close, выскакивают какие-то ошибки. Глюки за глюками. Вроде и функции в dll простенькие.

← →
Amoeba © (2004-09-22 14:19) [4]

А ты хоть прочитал, какой текст Delphi тебе сгенерила в начале модуля твоей DLL? Кто будет за тебя прописывать ShareMem в Uses? Пушкин?

← →
Digitman © (2004-09-22 14:59) [5]

> какие-то ошибки

нехай Лермонтов разбирается, что за ошибки ... не царское это дело - в ошибках ковыряться

← →
B-boy Dimo-N (2004-09-22 15:55) [6]

Да будет свет! сказал поэт...
Всем спасибо, всё работает.

детская проблема с компилированием DLL Найти похожие ветки