Hallo
habe mit dem Proggen von Komponenten angefangen
siehe LINK

jetzt hab ich das Problem wenn ich ein neues Projekt mit den Komponenten mach und dann auf alles schließen
klicke hängt Delphi und reagiert nicht mehr

Hat jemand eine Idee an was das liegen kann??

P.s Meine Komponenten functionieren mit den implementierten functinen bist jetzt einwandfrei.

Ich kapier das nicht Delphi hängt sich nur auf wenn ich meine Komponenten in einem
Projekt verwende sonst nicht

Hab ich vorher vergessen

zusammenfalten · markieren

Delphi-Quellcode:

unit MaxMySqlCon;

interface

uses
  SysUtils, Classes, mysql,Dialogs;

type
  TMaxMySqlCon = class(TComponent)
  private
    { Private-Deklarationen }

    FHost : String;
    FUser: String;
    FPort: Integer;
    FPass : String;
    FDatenbank : String;

    Verbindung : Boolean;
  protected
    { Protected-Deklarationen }

  public
    { Public-Deklarationen }
    _MySql : Pmysql;
    
    function Connect():boolean;
    function disconnect():boolean;
    function Connected():boolean;

  published
    { Published-Deklarationen }
    property Host : String Read FHost Write FHost;
    property User : String Read FUser Write FUser;
    property Port : Integer Read FPort Write FPort;
    property Password : String Read FPass Write FPass;
    property DB : String Read FDatenbank Write FDatenbank;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MaxMySql', [TMaxMySqlCon]);
end;

{ ************************Verbindung aufbauen********************************}
function TMaxMySqlCon.Connect():boolean;
begin
  if Connected = false then
  begin
    _mySql:= mysql_init(nil); //Objekt erzeugen
      if _mySql=nil then
      begin
        ShowMessage('Kann Verbindungsobjekt nicht initialisieren');
        result:= false;
        exit;
      end;
  //Verbindung herstellen
    if mysql_real_connect(_mySql,PChar(Fhost),PChar(FUser),PChar(FPass),PChar(FDatenbank), +
                        FPort,nil,0) = nil then
    begin
      result:= false;
      ShowMessage(mysql_error(_mySql));
      exit;
    end;
  Verbindung:= true;
  result:= true;
  end
  else
    result:=true; //Es besteht noch eine Verbindung (Connected=true)
end;

{ ************************noch Verbunden??********************************}
function TMaxMySqlCon.Connected():boolean;
begin
   try
   begin
      if _MySql=nil then //Wenn Objekt nicht vorhanden raus
      begin // ist notwendig da sonst Exception kommt
          result:=false;
          exit;
      end;
      if Verbindung=false then //Globale Var die in Connect und disconect gesetzt wird
      begin // ist notwendig da sonst Exception kommt
          result:= false;
          exit;
      end;
      if _MySql<>nil then
      begin
        if mysql_ping(_MySql)=0 then
          result:= true
        else
          result:= false;
      end
      else
        result:=false;
   end;
   except
    result:=false;
   end;
end;

{ ************************Verbindung trennen********************************}
function TMaxMySqlCon.disconnect():boolean;
begin
    if Connected then
    begin
      mysql_close(_mysql);
      Verbindung:=false;
      result:= true;
    end
    else
      result:= false;
end;
end.

zusammenfalten · markieren

Delphi-Quellcode:

unit MaxMySqlQuery;

interface

uses
  SysUtils, Classes,mysql,MaxMySqlCon, Dialogs;

type
  TMaxMySqlQuery = class(TComponent)//(TMaxMySqlCon) //Vererbt von TMaxMySqlCon
  private
    { Private-Deklarationen }
    TSource : TMaxMySqlCon;

    SQL_Text : PChar;
    SQL_Result : PMYSQL_RES;
// SQL_Row : PMYSQL_ROW;


  protected
    { Protected-Deklarationen }
    procedure Notification(AComponent: TComponent; Operation: TOperation);override;

  public
    { Public-Deklarationen }
    procedure Clear();
    procedure Add(SQL_String:String);
    function Open(): PMYSQL_RES;
    procedure ExecSQL();
    function RowCount():Integer;

  published
    { Published-Deklarationen }
    property Datasource : TMaxMySqlCon read TSource write TSource;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MaxMySql', [TMaxMySqlQuery]);
end;
{******************************************************************************
                  Notification überschreiben
*******************************************************************************}
procedure TMaxMySqlQuery.Notification(Acomponent : TComponent; Operation: TOperation);
begin
   if (Operation = opRemove) and (AComponent is TMaxMySqlCon) then
      TSource := nil;
end;

{******************************************************************************
                              Sql Clear
*******************************************************************************}
procedure TMaxMySqlQuery.Clear();
begin
    mysql_free_result(SQL_Result);
end;

{******************************************************************************
                            Sql Add
*******************************************************************************}
procedure TMaxMySqlQuery.Add(SQL_String:String);
begin
    SQL_Text:=PChar(SQL_String);
end;

{******************************************************************************
                            Sql Open
*******************************************************************************}
function TMaxMySqlQuery.Open(): PMYSQL_RES;
//var x : Integer;
begin
    if TSource.Connected then
    begin
    mysql_real_query(TSource._MySql,SQL_Text,length(SQL_Text));

    SQL_Result := mysql_store_result(TSource._MySql); //alle Datensätze vom Server anfordern
      if TSource._MySql = nil then
      begin
        ShowMessage('Es konnten keine Datensätze zurückgebenen werden. Ursache: ' + mysql_error(TSource._MySql));
        result:= nil;
        Exit;
      end;
    end
    else
      ShowMessage('Kann Abfrage nicht durchführen da keine Verbindung zum Server besteht');

// x:= mysql_num_rows(Sql_Result);
    result:= SQL_Result;
end;

{******************************************************************************
                            Sql ExecSQL
*******************************************************************************}
procedure TMaxMySqlQuery.ExecSQL();
begin

end;

{******************************************************************************
                            Row Count        -1 wenn nicht verbunden
*******************************************************************************}
function TMaxMySqlQuery.RowCount():Integer;
begin
  if TSource.Connected then
     result:= mysql_num_rows(SQL_Result)
  else
    result:= -1;
end;
end.

Push

Hab hier mal meine Komponenten angehängt.
Vielleicht findet ja einer den Fehler

Da ich keine Datenbankanbindungen machen kann, konnte ich es nicht probieren. Aber Probier mal folgendes: Schreib einen Destruktor, der die Verbindung trennt und auch alle Variablen (wieder) frei gibt.

Und das

markieren

Delphi-Quellcode:

procedure TMaxMySqlQuery.Notification(Acomponent : TComponent; Operation: TOperation);
begin
   inherited Notification(AComponent, Operation);
   if (Operation = opRemove) and (AComponent is TMaxMySqlCon) then
      TSource := nil;
end;

Das müßte eigenlich dein Fehler sein, denn du überschreibst die Notification-Funktion Diese wird bei jeder Veränderung, alos Erzeugen oder Löschen aufgerufen. Jedoch macht deine Funktion nichts anderes als deine If-Anweisung. Die eigendliche "Veränderungsfunktion" wird nicht aufgerufen. Leider weiß ich nicht, ob die in deinen Fall vor oder nach der If-Schleife kommen muß. Könnte sein, das dies je nach Operation auch verschieden sein kann.

Gruß Marco