Using TUtility DLL 16 Bits 
Author Message
 Using TUtility DLL 16 Bits

Sorry for my bad English !

I'm looking for informations about using TUtility's DLL 16 Bits

I'm trying to code an utility's program wich verify a paradox table.

I have some problems with the function TUINIT

I'm coding like :

procedure TForm1.B_VerificationClick(Sender: TObject);
var
  Msg       : Word;
  Table     : String;
  TmpChr1   : PChar;
  TmpChr2   : PChar;
  rslt      : DBIResult;
  HandSess  : hTUses;

begin
  Screen.Cursor := crHourGlass;
  try
    Table := 'C:\WKOALA\WREPARE\FICHIERS\CUSTOM.DB'+#0;

    Table := CheminBase+'\VERIFIC.DB'+#0;


    try
      rslt := TUVerifyTable(HandSess, TmpChr1, szPARADOX, TmpChr2, nil, 0,
Msg);
      if rslt = DBIERR_NONE then
      begin
        case Msg of
          0: Self.AideEnLigne.Caption := 'Verification termine avec
succs. Aucune erreur dtecte sur la table.';
          1: Self.AideEnLigne.Caption := 'Verification termine avec
succs. Verification termine.';
          2: Self.AideEnLigne.Caption := 'Verification termine avec
succs. Verification ne peut se termine.';
          3: Self.AideEnLigne.Caption := 'Verification termine avec
succs. La table doit tre rpare.';
          4: Self.AideEnLigne.Caption := 'Verification termine avec
succs. La table ne peut tre rpare.';
        else
          Self.AideEnLigne.Caption := 'Verification interrompue.';
        end;
      end
      else
      begin
        With Self.AideEnLigne do
        begin
          case rslt of
            DBIERR_INVALIDPARAM  : Caption := 'Paramtre invalide (NULL).';
            DBIERR_OSEINVACC     : Caption := 'Erreur d''accs la table,
le code d''accs est invalide.';
            DBIERR_OSENOENT      : Caption := 'Erreur d''accs la table,
la table ou le chemin n''existe pas.';
            DBIERR_HEADERCORRUPT : Caption := 'L''en_tte du fichier est
corrompu, restaurez la sauvegarde.';
          end;
        end;
      end;
    Finally
    end;
  Finally
    Check(TUExit(HandSess));
    Screen.Cursor := crDefault;
  end;
end;

And I have message error : Acces Violation at ...

Why ?????

Thank's a lot for answer !

KOALA,
Rmi LEBLOND
-------------------------------------------------------

-------------------------------------------------------



Sun, 25 Mar 2001 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. C++ builder / intrabuilder / ODBC 32 bits / ODBC 16 bits

2. Using a 32 bit DLL in a 16 bit BPW application

3. Using 32 bit DLL in 16 bit BPW application

4. 16 bits with Delphi 2.0 ???

5. 16 bits ODBC & Delphi 2

6. ODBC 16 / 32 bits

7. How to use SetEnvironment in Delphi 16 Bits (To Set the PATH environment)

8. Gurus needed: Delphi (16 bit) DLL that loads DLL query

9. Sybase : slow using 32 bit - fast using 16 bit

10. I need to compile a 16 bit dll

11. 16 bit DLL calling form Delphi 3.0

12. Using 16-bit DLL <--> 32-bit DLLs -- is it possible?

 

 
Powered by phpBB® Forum Software