Delphi 32 - AS/400

Warning: main(menu.php) [function.main]: failed to open stream: No such file or directory in /mnt/159/sda/3/d/tothpaul/cawin32.php3 on line 5

Warning: main() [function.include]: Failed opening 'menu.php' for inclusion (include_path='/mnt/159/sda/3/d/tothpaul/include:.:/usr/php4/lib/php') in /mnt/159/sda/3/d/tothpaul/cawin32.php3 on line 5

Delphi FREE* AS/400 32bits Components !

(C)1998, Paul TOTH <tothpaul@multimania.com>
cette page a été visitée 4051 fois depuis le ,dernière mise à jour le 08/06/2001

My First OpenSource RGP !

With ILE-RPG-IV you can use system API and especialy the sockets API... I've made a RPG version of my Delphi SENDMAIL !
Download SNDMAIL source code.
Installation :

Create TOTHPAUL LIB
Create QRPGLESRC, QDDSRC and QCMDSRC source files
Upload (with FTP) the provided sources code
Under PDM, set members attribute (RPGLE, DSPF and CMD)
Compile FORM DSPF
Compile SNDMAIL RPGLE
Compile SNDMAIL CMD
Add TOTHPAUL in your LIBL and use SNDMAIL !

New components, WITHOUT Client Access !

Because ClientAccess if a big fat client, and cause IBM AS/400 support now TCP/IP, I've made some new component to read DB2/400 files using FTP !

FTP400.ZIP is a sample Delphi 2 application to download, and display any DB2/400 file.

Try also my 5250 emulator (with 3812 support) TN400.ZIP

Download

My Free AS/400 32bits components (need ClientAccess) !

CAWIN32.ZIP with fix for Delphi 3+ ()

About CAWIN32

Current release content :

CAWIN32.PAS : Interface unit for Client Access 95
(It's to ClientAccess what Windows.pas is to Windows)
REG400.PAS : Register unit
PARMEDIT.* : TCall400 Parms editor
AS400.PAS : Compontents Source :
- TAS400 : connexion handler
  - SysName : AS/400 name (or *DEFAULT)
  - UserName : current user
  - Version : OS/400 version
- TSysList : ClientAccess configured system ListBox
  - AutoSelect : automaticaly select the first one
  - AS400 : Set AS400.SysName on a click
- TLibFiles : Library files ListBox
  - Active : enable/disable liste update
  - AS400 : AS/400
  - LibName : library to list
  - SelecFiles : (sfAll,sfSource,sfData) - don't work :(
  - FileAttributes : (faAll,faPhysical,faLogical,faODBCTable,faODBCView)
- TLibList : Library ListBox
  - AS400 : AS/400
  - AutoSelect : automaticaly select the first one
  - LibFiles : set LibFiles.LibName on a click
- TDlg400 : AS/400 TOpenDialog
  (use all the component above)
- TCall400 : call an AS/400 program
  - AS400 : AS/400
  - PgmName : Object name *PGM
  - LibName : Object library
- TParm400 : Non visible Composant; TCall400 parameter
  - ParmType : (tChar,tDec,tBin)
  - Size : buffer size
  - Precision : decimal count

Bugs !

TCall400 editor work like TTable and TField; but when I rename a TParm400, the Listbox isn't updated
The file type selection API doesn't work (?)