ich weiss ich habe es schon gelesen das dieser Fehler nur von Greenhorns ausgelöst wird. Ich habe auch gelesen das es vermutlich nur an den Einstellungen von Larzarus liegt. Allerdings habe ich nicht gefunden wo entsprechende Einstellungen vorzunehmen sind.
Mein System ist ein Toshiba Labtop mit Windows 7 und Ubuntu neueste Version mit AMD Chipsatz
Der Kompiler und Linker arbeiten durch, allerdings beim Start des Testprogrammes bekomme ich halt diesen bedauerlichen Fehler auf dem Windows System. Mit Ubuntu habe ich es nicht getestet. Quellcode:
Code: Alles auswählen
unit koscoLogin;
{$mode objfpc}{$H+}
interface
uses
KOSCOGlobal, { In der GLOBAL werden alle allgemeingültigen Parameter gespeichert }
Classes, SysUtils, mysql50conn, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls;
type
{ TfrmConnectDB }
TfrmConnectDB = class(TForm)
Benutzername: TLabel;
btnConnect: TButton;
btnAbbruch: TButton;
Datenbank: TLabel;
lblKennwort: TLabel;
MySQL50Connection1: TMySQL50Connection;
txtDatabase: TEdit;
txtPassword: TEdit;
txtUsername: TEdit;
txtHost: TEdit;
Label1: TLabel;
MySQLConnect: TMySQL50Connection;
procedure btnAbbruchClick(Sender: TObject);
procedure btnConnectClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure lblKennwortClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
frmConnectDB: TfrmConnectDB;
implementation
{$R *.lfm}
{ TfrmConnectDB }
{ TfrmConnectDB }
procedure TfrmConnectDB.btnAbbruchClick(Sender: TObject);
begin
frmConnectDB.Close;
end;
procedure TfrmConnectDB.btnConnectClick(Sender: TObject);
begin
{ if MySQLConnect.Connected then MySqlConnect.Close; }
MessageDlg('Verbindung hergestellt: ' + txtHost.Text,mtInformation,[mbOk,mbCancel],0);
{Hier ist dann der Ausstieg mit Exceptionklasse: external SIGSEGV}
MySQLConnect.HostName := 'localhost';
MySqlConnect.DatabaseName:= txtDatabase.Text;
MySqlConnect.UserName:= txtUsername.Text;
MySqlConnect.Password:= txtPassword.Text;
MySqlConnect.Open;
if MySqlConnect.Connected then
begin
MessageDlg('Verbindung hergestellt',mtInformation,[mbOk,mbCancel],0);
end;
end;
procedure TfrmConnectDB.FormCreate(Sender: TObject);
begin
txtDatabase.Text:=KOSCODatabase;
txtDatabase.Enabled:=false;
txtDatabase.Color:=clRed;
end;
procedure TfrmConnectDB.lblKennwortClick(Sender: TObject);
begin
end;
end.Ich wäre auf jeden Fall sehr dankbar.
Grüße
Udo
und der Kreis Segeberg meine 
Verein
Links
Suche