Suche XbToolsIII Version 1.8

[matyschik]

Wer kann mir die XbToolsIII Version 1.8 zur Verfügung stellen oder Vekaufen oder kann mir eine Bezugsquelle nennen ?

Alaska ist leider nicht inder Lage eine Version 1.8 zur Verkaufen.

Würden die XbToolIII 1.9 auch unter Xbase++ 1.8 laufen?

Gruß Johann der Suchende

[brandelh]

Hi,

die XbToolsIII müssen von der gleichen Version sein wie der Compiler selbst !

[AUGE_OHR]

hi,

Alaska ist leider nicht inder Lage eine Version 1.8 zur Verkaufen.

hm ... "Ersatzteile" sollte man doch irgendwo rumliegen die man
verkaufen kann ...

welche Funktionen brauchst du denn .. vieles kann man ja selbst
machen.

[Jan]

Johann,

brauchst Du wirklich die 1.8 oder die 1.82?

Abgesehen davon: Wie Jimmy schon ganz richtig sagte: Die meisten Funktionen aus den Tools kann man sich auch selber schreiben. Ist halt nur ein wenig mehr Auffwand Deswegen setze ich die ab und an doch auch mal ein. Sind halt bei der Subscription automatisch dabei. Deswegen habe ich mir die auch nie gekauft.

Jan

[matyschik]

Ja, es handelt sich wirklich um die Version 1.8 und nicht um 1.82. Ich weiß nicht ob es bei den XbToolsIII's tatsächlich eine Rolle spielt.

Gruß Johann der suchende

[Rolf Ramacher]

Hi Johann,

also programmieren kannst du auch ohne Tools. Aber div. Funktionen
aus den Tools erleichtern das Leben.

[AUGE_OHR]

hi,

Gruß Johann der suchende

nochmals die Frage WAS aus den Tools du suchst ?

Beispiel für "Ersatz" : in den Tools sind ja Novell (Bindery) Funktionen.
Wie im Helpfile der Tools zu lesen wird aber zum Einsatz der Funktionen
ein Novell-Client (for Windows) benötigt. In Wirklichkeit wird damit nur
die Prtwin32.dll benötigt :

Code: Alles auswählen

Source "irgendwo" im Alaska Forum gefunden ...

#INCLUDE "OS.CH"
#INCLUDE "COMMON.CH"
#INCLUDE "DLL.CH"

#DEFINE CAP_SET_SUPP_FF 1
#DEFINE CAP_SET_BANNER  2

STATIC lIsNovell, nDLL

DLLFUNCTION NWSetCaptureFlags( nHandle, nLpt, @cFlags)   USING STDCALL FROM CALWIN32.DLL
DLLFUNCTION NWGetCaptureFlags( nLpt, @cFlags1, @cFlags2) USING STDCALL FROM CALWIN32.DLL
DLLFUNCTION NWCallsInit( nNull1, nNull2 )                USING STDCALL FROM CALWIN32.DLL
DLLFUNCTION NWGetDefaultConnectionID( @nHandle )         USING STDCALL FROM CALWIN32.DLL

INIT PROCEDURE InitNovFunc
   LOCAL cDir

   lIsNovell := .F.

   // Je nach OS-Familie andere Einstellungen verwenden
   IF OS(OS_FAMILY) == "WINNT"
      cDir := TRIM(GetEnv("systemroot")) + "\system32"
   ELSE
      cDir := TRIM(GetEnv("winbootdir")) + "\system"
   ENDIF

   IF FEXISTS(cDir + "\prtwin32.dll")
      nDll := DLLLoad("prtwin32.dll")
      lIsNovell := (nDll # 0)
   ENDIF

RETURN

FUNCTION IsNovell
RETURN lIsNovell

FUNCTION CnetCapBeg( nLPT_Port )
LOCAL lRet := .F.

   IF lIsNovell
      // lRet := &("NnetCapBeg")( nLPT_Port )
      lRet := DllCall( nDll,, "NNETCAPBEG", nLPT_Port )
   ENDIF

RETURN lRet

FUNCTION CnetCapEnd( nLPT_Port )
LOCAL lRet := .T.

   IF lIsNovell
      // lRet := &("NnetCapEnd")( nLPT_Port )
      lRet := DllCall( nDll,, "NNETCAPEND", nLPT_Port )
   ENDIF

RETURN lRet

FUNCTION CnetCapAct( nLPT_Port )
LOCAL lRet := .T.

   IF lIsNovell
      // lRet := &("NnetCapEnd")( nLPT_Port )
      lRet := DllCall( nDll,, "NNETCAPACT", nLPT_Port )
   ENDIF

RETURN lRet


FUNCTION CnetCapSsf( nLPT_Port, lEjectAtEndOfJob, lPrintBannerPage, ignored_1, ignored_2, nTabWidth, nCopies, nFormNumber )
LOCAL lRet := .F.

   IF lIsNovell
      lRet := DllCall( nDll,, "NNETCAPSSF", nLPT_Port, , .F. , ignored_1, ignored_2, nTabWidth, nCopies, nFormNumber )
      IF lEjectAtEndOfJob != NIL
         NNetSetCaptureFlags( !lEjectAtEndOfJob, CAP_SET_SUPP_FF )
      ENDIF
      IF lPrintBannerPage != NIL
         NNetSetCaptureFlags( lPrintBannerPage, CAP_SET_BANNER )
      ENDIF
   ENDIF

RETURN lRet

FUNCTION CnetScnBin( cScanObjectName, nObjectType, nObjectID, nObjectFlag, nObjectSecurity, lObjectHasProperty, cFileServer )
   LOCAL aRet := {}

   IF lIsNovell
      // aRet := &("CnetScnBin")( cScanObjectName, nObjectType, nObjectID, nObjectFlag, nObjectSecurity, lObjectHasProperty, cFileServer )
      aRet := DllCall( nDll,, "NNETSCNBIN", cScanObjectName, nObjectType, nObjectID, nObjectFlag, nObjectSecurity, lObjectHasProperty, cFileServer )
   ENDIF

RETURN aRet

FUNCTION CnetSDate( cFileServer )
LOCAL dRet := DATE()

   IF lIsNovell
      // dRet := &("NnetSDate")( cFileServer )
      dRet := DllCall( nDll,, "NNETSDATE", cFileServer )
   ENDIF

RETURN dRet

FUNCTION CnetSerNo( cFileServer )
LOCAL cRet := ""

   IF lIsNovell
      // cRet := &("NnetSerno")( cFileServer )
      cRet := DllCall( nDll,, "NNETSERNO", cFileServer )
   ENDIF

RETURN cRet


FUNCTION CnetSetQ( nLPT_Port, cPrintQueueName )
LOCAL lRet := .F.

   IF lIsNovell
      // lret := &("NnetSetQ")( nLPT_Port, cPrintQueueName )
      lret := DllCall( nDll,, "NNETSETQ", nLPT_Port, cPrintQueueName )
   ENDIF

RETURN lRet

FUNCTION CnetBanner(cBannerName)
LOCAL cRet := ""

   IF lIsNovell
      cRet := DllCall( nDll,, "NNETBANNER", cBannerName )
   ENDIF

RETURN cRet

FUNCTION CnetSetSrv( cFileserverName )
LOCAL lRet := .F.

   IF lIsNovell
      // lRet := &("NnetSetSrv")( cFileserverName )
      lRet := DllCall( nDll,, "NNETSETSRV", cFileserverName )
   ENDIF

RETURN lRet

FUNCTION CnetSlist()
LOCAL cRet := ""

   IF lIsNovell
      // cRet := &("NnetSlist")()
      cRet := DllCall( nDll,, "NNETSLIST")
   ENDIF

RETURN cRet

FUNCTION CnetStaId()
LOCAL cRet := ""

   IF lIsNovell
      // cRet := &("NnetStaId")()
      cRet := DllCall( nDll,, "NNETSTAID")
   ENDIF

RETURN cRet

FUNCTION CnetStime()
LOCAL cRet := TIME()

   IF lIsNovell
      // cRet := &("NnetStime")()
      cRet := DllCall( nDll,, "NNETSTIME")
   ENDIF

RETURN cRet

FUNCTION CnetWork()
LOCAL lRet := .F.

   IF lIsNovell
      // lret := &("NNETWORK")()
      lret := DllCall( nDll,, "NNETWORK")
   ENDIF

RETURN lRet

FUNCTION CnetCVsSrv( cSearchServerName )
LOCAL nRet := 0

   DEFAULT cSearchServerName TO "*"

   IF lIsNovell
      nret := DllCall( nDll,, "NNETCVSSRV", cSearchServerName)
   ENDIF

RETURN nRet


FUNCTION CnetSname()
LOCAL cRet := ""

   IF lIsNovell
      cret := DllCall( nDll,, "NNETSNAME" )
   ENDIF

RETURN cRet


FUNCTION CnetCCnSrv(lLoggedin)
LOCAL nRet := 0

   DEFAULT lLoggedIn TO .F.

   IF lIsNovell
      nRet := DllCall( nDll,, "NNETCCNSRV", lLoggedin )
   ENDIF

RETURN nRet

/*

Aufbau der Struktur f

[FlashNash]

Da es hier um de XbToolsIII geht .... gibt es die als Demo passend zu Xbase 1.9 Build 331 ? Gehe ich richtig in der Annahm, dass darin viele/ähnliche UDFs enthalten sind, wie damals in der NT250.lib bzw der CA Tools II v5.x? Aus der habe ich nämlich ettliche UDFs verwendet und das alles manuell nachzuproggen ... ohje... ohje....

Da ich mich ja noch in der ´Übrlegungs + Testpase´ mit der Migrierung befinde, möchte ich nicht zum jetzigen Zeitpunkt bereits hunderte Teuros ausgeben. Ich muss mir erst sicher sein bzw. genauer eroieren, was an Arbeit/Zeit/Schweiß usw. drauf geht, wenn ich meine Applikation tatsächlich komplett migriere.


EditON
Hat sich erledigt. XbToolsIII gibt es nicht als Demo. Schade, schade, schade.
EditOFF

[Jan]

Rolf,

in dem Fall würde das eh nicht helfen. Die XBTool sind genau das, was damals die original Clipper-Tools waren. Nicht weniger (außer das, was eben unter Windows nicht mehr gehen kann), aber auch nicht mehr.

So manches brauchst Du aber aus den anderen Tools sowieso nicht mehr, weil das unter Windows das nicht mehr benötigt wird, oder weil in der "normalen" Xbase++ das schon drin ist.

Jan

[brandelh]

Hi,

genau, vieles wird einfach nicht mehr gebraucht oder heißt nun einfach anders.

Stelle doch mal die Liste der fehlenden Funktionen hier rein, sicher gibt es einige die einige Funktionen ersetzt haben und helfen können ... ich auch

[FlashNash]

Thx ... ich werde nächste Woche mal eine Liste erstellen. Vorher möchte ich genauer eroieren, was ich sowieso rauswerfen kann. Die 640KB RAM Swap Sache kann weg, die alten Terminal und Mailboxfunktionen können raus und noch paar Dinge. Da wird meine momentane ´unresolved external´ Liste erheblich kürzer. Die werde ich dann hier mal einstellen.

[brandelh]

Hi,

ich hatte mehrere Fensterfunktionen, die ich alle auf savescreen() etc. umgestellt habe.

[AUGE_OHR]

hi,

... und Mailboxfunktionen können raus ...

kennst du einen Josef Dammers mit seinem GENIUS Cl*pper Mailbox ?

[FlashNash]

Ja ich kenne Josef. Der ursprüngliche Mailbox Sourcecode stammt aber nicht vom Josef sondern von Silverware aus den USA. SilverWare hatte damals die LIB für DFÜ (SilverAsync) entwickelt und eine komplette Mailbox als Sourcecode dazu geliefert. Wir hatten das Zeug aus den USA importiert. Ich habe mit Josef damals eine kurze Zeit zusammengearbeitet ... aber nur ganz kurz und ich möchte mich nicht weiter dazu auslassen, gehört nicht hier hin.

[Juergen]

Hallo,

investiere lieber in express++ . Das erleichtert die Migration erheblich.
Das Tool enthält jede Menge nützlicher Funktionen.

Die XBTOOLS benötigst Du dann nicht mehr.

Gruß

Jürgen

[FlashNash]

Express++ habe ich mir schon besorgt, hatte leider noch keine freie Zeit um das mal anzutesten.

Innerlich bin ich aber mittlerweile so weit, dass ich mich zu der ´Ochsentour´ entschlossen habe d.h. volle Migration nach XBase++ GUI. Wie oder was für nen Weg bzw. ob mit oder ohne Umweg, dass muss ich noch genauer eroieren.

Ich bin ja völliger XBase Neuling und muss mich in die OOP Handhabung erst einmal ´eindenken´ ... sozusagen im Kopf die ganzen Switches von Clipper, Assembler, Pascal, PHP, mySQL, Perl, HTML in Richtung XBase und OOP umlegen. Das wird noch etwas dauern, denn in der XBase++ OOP Welt ist alles etwas anders.