External library is just a 32-bit one. It is written in Delphi and allows you to create text files with the specified name, the string length and the number of lines of all sizes, including more than 4GB. But the function does not start at all.
When called by DllCall () nothing happens, and with the macro writes about an error that the function is not declared. Where it is not declared? How to declare it?
Code: Select all
PROCEDURE AppSys
// Рабочий стол остается окном приложения
RETURN
******************************************************************
FUNCTION Main()
LOCAL nDll, cCall, i, p1 := 100, p2 := Space(10) , Str_len := " ", N_Rec := 10
DC_IconDefault(1000)
nDll = DllLoad( "LC_lib.dll" )
IF nDll = 0
MsgBox('Не найдена динамическая библиотека: "LC_lib.dll"')
RETURN NIL
ENDIF
N_Rec = 20 // Число признаков
N_Cls = 10 // Число классов
N_Col = N_Cls+3 // Число полей
******** Структура создаваемой базы
aStructure := { { "Kod_pr", "N", 15, 0},; // 1
{ "Name" , "C",250, 0} } // 2
FOR j=1 TO N_Cls
FieldName = "N"+ALLTRIM(STR(j,15))
AADD(aStructure, { FieldName, "N", 19, 3 })
NEXT
AADD(aStructure, { "Summa", "N", 19, 0 })
Str_len = 0
FOR j=1 TO N_Col
Str_len = Str_len + aStructure[j,3]
NEXT
*DllCall( nDll,, "LC_CreateDB", "DB_max.txt", Str_len, N_Rec )
&("LC_CreateDB")("DB_max.txt", Str_len, N_Rec )
DllUnload( nDll )
RETURN NIL