welche DLL gehören zu Xbase++

[AUGE_OHR]

hi,

die folgenden DLL Namen kenne ich für Xbase++

Code: Alles auswählen

AADD(aDLLlist, {"ADAC20B.DLL"      ,0,""}     // Xbase++
AADD(aDLLlist, {"ADAC20C.DLL"      ,0,""}     // Runtime
AADD(aDLLlist, {"ASCOM10.DLL"      ,0,""}     // 
AADD(aDLLlist, {"ASCOM10C.DLL"     ,0,""}     // 
AADD(aDLLlist, {"ASLOGRESOURCE.DLL",0,""}     //
AADD(aDLLlist, {"ASRDBC10.DLL"     ,0,""}     //
AADD(aDLLlist, {"CDXDBE.DLL"       ,0,""}     //
AADD(aDLLlist, {"DBFDBE.DLL"       ,0,""}     //
AADD(aDLLlist, {"DELDBE.DLL"       ,0,""}     //
AADD(aDLLlist, {"FOXDBE.DLL"       ,0,""}     //
AADD(aDLLlist, {"NTXDBE.DLL"       ,0,""}     //
AADD(aDLLlist, {"SDFDBE.DLL"       ,0,""}     //
AADD(aDLLlist, {"SOM.DLL"          ,0,""}     //
AADD(aDLLlist, {"XPPDBGC.DLL"      ,0,""}     //
AADD(aDLLlist, {"XPPNAT.DLL"       ,0,""}     //
AADD(aDLLlist, {"XPPRT1.DLL"       ,0,""}     //
AADD(aDLLlist, {"XPPRT2.DLL"       ,0,""}     //
AADD(aDLLlist, {"XPPSYS.DLL"       ,0,""}     //
AADD(aDLLlist, {"XPPUI1.DLL"       ,0,""}     //
AADD(aDLLlist, {"XPPUI2.DLL"       ,0,""}     //
AADD(aDLLlist, {"XPPUI3.DLL"       ,0,""}     //

AADD(aDLLlist, {"ASINET10.DLL"     ,0,""}     // ASInet
AADD(aDLLlist, {"ASINET1C.DLL"     ,0,""}     // ASInet
AADD(aDLLlist, {"ASIUTL10.DLL"     ,0,""}     // ASInet

AADD(aDLLlist, {"XBPPACK1.DLL"     ,0,""}     // Xbase++ pack 1
AADD(aDLLlist, {"XBPPACK2.DLL"     ,0,""}     // Xbase++ pack 2

AADD(aDLLlist, {"ASPP18.DLL"       ,0,""}     // PreProcessor support
AADD(aDLLlist, {"ASPP18B.DLL"      ,0,""}     // PreProcessor support

AADD(aDLLlist, {"ASXML10.DLL"      ,0,""}     // XML support package
//
// 3-PP
//
AADD(aDLLlist, {"SEE32.DLL"        ,0,""}     // Email See32
AADD(aDLLlist, {"ZLIB1.DLL"        ,0,""}     // ZLib 3PP
AADD(aDLLlist, {"OT4XB.DLL"        ,0,""}     // Pablos ot4xb

welche weiteren "pro" und 3-PP DLL Namen gibt es noch ?

[Wolfgang Ciriack]

Hallo Jimmy,
mir fallen noch folgende ein:

BAP.DLL

CM*.DLL (List und Label)

DCLIP?.DLL (eXPress++)
DCXML.DLL
XCODEJOCK.DLL

XB2NET.DLL (xb2.net)
SQLXPP.DLL (SQLExpress)

SOCMAPI.DLL
TOPTAPI2.DLL

[AUGE_OHR]

Hallo Jimmy,
mir fallen noch folgende ein:

BAP.DLL

CM*.DLL (List und Label)

DCLIP?.DLL (eXPress++)
DCXML.DLL
XCODEJOCK.DLL

XB2NET.DLL (xb2.net)
SQLXPP.DLL (SQLExpress)

SOCMAPI.DLL
TOPTAPI2.DLL

ich habe schon festgestellt das ich es weiter aufschlüsseln muss.

1.) "reine" Xbase++ DLL d.h. foundation+pro+Asinet+ ... etc. die will ich auf Ja/Nein alle überprüfen
ich habe aber nur die foundation, also ein "DIR \LIB\*.DLL > ProDLL.TXT" von einer "Pro" Version wäre nett

2.) BAP.DLL, SocMapi.DLL, ot4xb.DLL, also "einzelne" DLL als Add-on sind interessant
bitte kurze Angabe was die macht ...

3.) bei 3-PP z.b. Express++ gehe ich davon aus das die sich in SET LIB eintragen. die brauche ich nicht "einzeln"
(unmöglich die zu "pflegen wenn man die nicht selbst hat ...)

mir ist schon klar das ich per XppLoad.EXE auch Informationen bekomme ...
aber ich denke eher an ein *.PRG das man ( User ) zwecks Überprüfung beim Start einer Xbase++ Applicationen einsetzen kann.

wenn ich z.b. eine Demo mache und alle Hotfixe habe dann schicke ich einem Xbase++ User nur die "eigenen" DLLs.
Die Runtime sollte ja nun jeder Xbase++ User haben, aber er muss ja nicht alle Hotfixe haben.

[AUGE_OHR]

so nun hab ich den Link gefunden :

ot4xb.public
Re: ot4xb Devcon Tutorial
, 24. Oktober 2007

dort gibt es den Link zu http://www.xbwin.com/download/WinApi_Tutor.zip
in dem File habe ich die Class TFileVersionInfo() gefunden mit der man "jeder" DLL, im Gegensatz zu XppLoad.EXE oder DlInfo(), auslesen kann.

glücklicherweise gibt Alaska endlich, in der FileDescription, eine Hotfix No# Version an die man überprüfen kann.
nun muss man nur noch ein kleines Problem von TFileVersionInfo() korrigieren und hat dann mittels ot4xb eine nette Function

Code: Alles auswählen

#include "ot4xb.ch"

#define nINFO_DESCRIPT  1
#define nINFO_VALUE     2

FUNCTION FileVersion(cFile)
local oInfo
local aInfo := {}
local i,iMax
local nPosi

   oInfo := TFileVersionInfo():New(cFile)
   oInfo:QueryValue(2)

   AADD(aInfo,{ "Comments        " , oInfo:QueryValue(1,"Comments","000004E4") })
   AADD(aInfo,{ "InternalName    " , oInfo:QueryValue(1,"InternalName"       ) })
   AADD(aInfo,{ "ProductName     " , oInfo:QueryValue(1,"ProductName"        ) })
   AADD(aInfo,{ "CompanyName     " , oInfo:QueryValue(1,"CompanyName"        ) })
   AADD(aInfo,{ "LegalCopyright  " , oInfo:QueryValue(1,"LegalCopyright"     ) })
   AADD(aInfo,{ "ProductVersion  " , oInfo:QueryValue(1,"ProductVersion"     ) })
   AADD(aInfo,{ "FileDescription " , oInfo:QueryValue(1,"FileDescription"    ) })
   AADD(aInfo,{ "LegalTrademarks " , oInfo:QueryValue(1,"LegalTrademarks"    ) })
   AADD(aInfo,{ "PrivateBuild    " , oInfo:QueryValue(1,"PrivateBuild"       ) })
   AADD(aInfo,{ "FileVersion     " , oInfo:QueryValue(1,"FileVersion"        ) })
   AADD(aInfo,{ "OriginalFilename" , oInfo:QueryValue(1,"OriginalFilename"   ) })
   AADD(aInfo,{ "SpecialBuild    " , oInfo:QueryValue(1,"SpecialBuild"       ) })

   iMax := LEN(aInfo)
   FOR i := 1 TO iMax
      IF NIL <> aInfo[i][nINFO_VALUE]
         // 0 Zero terminierter String
         nPosi := AT(CHR(0),aInfo[i][nINFO_VALUE])
         IF nPosi > 0
            aInfo[i][nINFO_VALUE] := SUBSTR(aInfo[i][nINFO_VALUE],1,nPosi-1)
         ENDIF
      ELSE
         aInfo[i][nINFO_VALUE] := "N/A"
      ENDIF
   NEXT

RETURN aInfo