Datenbank Anwendung weitergeben.

[stathis]

Ja mein Anwendung verbindet direct mit mysql.
Die Anwendung läuft von mein Laptop einwandfrei (in diesem laptop habe ich die Programmiert), egal in welchem netz verbindet ist.

Also ich glaube wenn ich in Buro-Pc delphi xe8 installiere und da das programm compile wird dann auch da einwandfrei laufen. Aber das ist kein loesung

ich danke
Stathis

[Neumann]

Hat glaube ich nichts damit zu tun wo man das Programm compiliert. Aber es auf dem Rechner zu debuggen wo es nicht läuft könnte helfen das Problem zu finden.

[jaenicke]

Da der letzte Eintrag im Stacktrace LoadDriverLibraryA ndMethodTable ist, sieht es für mich so aus als ob da eine DLL fehlt oder es eine falsche Version ist.

Hast du mal im Quelltext der genannten Unit geschaut was an der Stelle passiert?

[stathis]

ja ich meine auch das ein dll fehlt aber welche?
Ich habe libmysql.dll und dbxmys.dll in ziel PC in system32 ordner kopiert
was noch soll ich kopieren?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DBXMySQL, Data.FMTBcd, Data.DB,
  Data.SqlExpr, Vcl.StdCtrls, Vcl.Buttons, Vcl.Grids, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    SQLConnection1: TSQLConnection;
    SQLQuery1: TSQLQuery;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 i,ncol,z: integer;
 uid : string;
begin
   for nCol := 0 to stringgrid1.ColCount - 1 do
  begin
    stringgrid1.Cols[nCol].Clear;
  end;
    stringgrid1.Cells[0,0] := 'ID';
  stringgrid1.Cells[1,0] := 'UID Κάρτας';
  stringgrid1.Cells[2,0] := 'Πόντοι';
  stringgrid1.Cells[3,0] := 'Πόντοι Σύνολο';
  stringgrid1.Cells[4,0] := 'Ημερομηνία';
  stringgrid1.Cells[5,0] := 'Ώρα';

sqlquery1.sql.Clear;

 SQLquery1.SQL.add ('Select id,UID,points,TotalPoints,date,time from karta');
   sqlquery1.open;
  SQLquery1.First;
 i:=0;
  while not SQLquery1.EOf do begin
    i:=i+1;
    stringgrid1.RowCount := i+2;
    stringgrid1.Cells[0,i] := inttostr(SQLquery1.Fieldbyname('id').asinteger);
    stringgrid1.Cells[1,i] := SQLquery1.Fieldbyname('UID').asString;
    stringgrid1.Cells[2,i] := inttostr(SQLquery1.Fieldbyname('points').asinteger);
    stringgrid1.Cells[3,i] := inttostr(SQLquery1.Fieldbyname('TotalPoints').asinteger);
    stringgrid1.Cells[4,i] := SQLquery1.Fieldbyname('date').asString;
    stringgrid1.Cells[5,i] := SQLquery1.Fieldbyname('time').asString;
       SQLquery1.Next;
  end;

  sqlquery1.sql.Clear;
end;

end.

----------SQL CONNECTION PARAMS -----------------
DriverUnit=Data.DBXMySQL
DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCo mmonDriver160.bpl
DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriv erLoader,Borland.Data.DbxCommonDriver,Version=16.0 .0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b 1b
MetaDataPackageLoader=TDBXMySqlMetaDataCommandFact ory,DbxMySQLDriver160.bpl
MetaDataAssemblyLoader=Borland.Data.TDBXMySqlMetaD ataCommandFactory,Borland.Data.DbxMySQLDriver,Vers ion=16.0.0.0,Culture=neutral,PublicKeyToken=91d62e bb5b0d1b1b
GetDriverFunc=getSQLDriverMYSQL
LibraryName=dbxmys.dll
LibraryNameOsx=libsqlmys.dylib
VendorLib=LIBMYSQL.dll
VendorLibWin64=libmysql.dll
VendorLibOsx=libmysqlclient.dylib
HostName=**************
User_Name=*********
Password=***********
MaxBlobSize=-1
LocaleCode=0000
Compressed=False
Encrypted=False
BlobSize=-1
ErrorResourceFile=
Database=*************
ServerCharSet=utf8

[RWarnecke]

Zitat:

|00000020|04 |0012FEC8|00899A87|melikriton.exe|00499A87|Unit4 |TForm4 |FormCreate |161[5] |

Die Zeile aus deinem Eurekalog ist der Auslöser für Deine Access Violation. Was wird hier im FormCreate gemacht in der Unit4 ?

Edit:
Bitte den Quelltext mit einfassen. Damit lässt sich Quelltext leichter lesen für uns, da er entsprechend formatiert wird.

[stathis]

Zitat von RWarnecke:

Zitat:

|00000020|04 |0012FEC8|00899A87|melikriton.exe|00499A87|Unit4 |TForm4 |FormCreate |161[5] |

Die Zeile aus deinem Eurekalog ist der Auslöser für Deine Access Violation. Was wird hier im FormCreate gemacht in der Unit4 ?

Edit:
Bitte den Quelltext mit einfassen. Damit lässt sich Quelltext leichter lesen für uns, da er entsprechend formatiert wird.

ich habe ein sql anfrage im unit4 formcreate deswegen kommt die fehler
Die fehler kommt nur wenn ein sqlanfrage rufe sonst ist kein Problem

procedure TForm4.FormCreate(Sender: TObject);
begin
ComboBox1.Clear; //
sqlquery1.sql.Clear;
SQLquery1.SQL.Add('Select DISTINCT UID');
SQLquery1.SQL.Add('From karta');
sqlquery1.open;
SQLquery1.First;

while not sqlQuery1.Eof do
begin
ComboBox1.Items.Add(SQLquery1.Fieldbyname('UID').a sString);
sqlquery1.Next;
end;
end;

[TBx]

Handelt es sich bei dem Rechner im Büro um eine 64 Bit maschine?
Dann gehören die DLLs nämlich ins SysWOW64-Verzeichnis.
Oder Du legst die Dlls in Dein Anwendungsverzeichnis.

[stathis]

Zitat von TBx:

Handelt es sich bei dem Rechner im Büro um eine 64 Bit maschine?
Dann gehören die DLLs nämlich ins SysWOW64-Verzeichnis.
Oder Du legst die Dlls in Dein Anwendungsverzeichnis.

Nein es ist Windows xp 32bit

[stathis]

ich glaube das Problem liegt nicht in Code sondern fehlt noch irgendeine dll oder andere datei.

[stathis]

keine idee?