[SOLVED] Lazarus32 on WinXP and Oracle 10XE

[Maverich]

Oracle 10 XE 32 bit and oci.dll 32 bit

- Lazarus32 on WinXP - oci.dll 32 bit
Test 1: component
OracleConnection (SqlDB)
DataBaseName : localhost:1521/XE

at DesignTime connected = True ; work
at RunTime connected = True ; not work (gdb.exe error)

- Lazarus64 on Win7 64 - oci.dll 32 bit
at DesignTime and RunTime connected = True ; work

- Lazarus32 su WinXP - oci.dll 32 bit
Test 2: component
ZConnection (Zeos 7.0.0)
DataBaseName : localhost:1521/XE
Port: 1521
Protocol: oracle9i

at DesignTime and RunTime connected = True ; work

Lazarus64 on Win7 64 - oci.dll 32 bit
at DesignTime and RunTime connected = True ; work

[ludob]

What is your fpc version?
What is the error message exactly?
Does your program work when run outside lazarus? Gdb.exe is the debugger and lazarus runs a program with the debugger.

[Maverich]

s.o Win XP sp3
Lazarus 1.1 - win32
Fpc 2.7.1

Debug
Dialog for send message to microsoft, after click do not send

Debugger Error
error : Oops the debbuger entered the state error
Save your work now

Hir stop, and hope the test, we're pulling the plug

the try excpet has not effect
the code pass to pass with F7

  try
    OracleConnection1.Directory := 'C:\TestMySQL_Laz';
    //OracleConnection1.HostName := 'localhost:1521';
    OracleConnection1.HostName := '';
    OracleConnection1.DataBaseName := 'localhost:1521/XE';
    OracleConnection1.Connected := True;
  except
    ShowMessage('No');
  end;         

runtime
Can not find entry point longgimp ..on the library orauts.dll (not exists on my hd)

[Maverich]

the problem was the library oci.dll, copied from c:\oracleexe\app\oracle\product\10.2.0\server\BIN
 on the project folder, now works Debug and Runtime on WinXP and Lazarus 32

try
    OracleConnection1.Directory := 'C:\TestMySQL_Laz';
    //OracleConnection1.HostName := 'localhost:1521';
    OracleConnection1.HostName := '';
    OracleConnection1.DataBaseName := 'localhost:1521/XE';
    OracleConnection1.Connected := True;
    SQLQuery1.Active := True;
  except
    ShowMessage('No');
    ......
  end;