MySQL zugang

[milos]

Zitat:

Zitat von DeddyH

Wieso denn dann der Umweg über phpMyAdmin? Mit entsprechenden Zugriffskomponenten (mysqldirect, ZEOS, etc.) wäre das doch viel sinnvoller.

[edit] Siehe z.B. hier: http://www.delphipraxis.net/internal...ect.php?t=7266 [/edit]

Bei diesem Tutorial komme ich nicht weitder.... Es wird gesagt ich soll mysql.pas in Windows/System32 verschieben das habe ich gemacht... Als ich dann in uses MySQL hinzugefügt habe ging es nicht.

Edit: Es geht jetzt :D

[milos]

Ich habe noch eine Frage. Ist PMySQL ein komponent?

[Die Muhkuh]

Nö.

Zitat:

Neben den Funktionen werden noch folgende Datentypen, die in mysql.pas definiert sind, benutzt:

PMySQL
PMySQL_Res
PMySQL_Rows

[DeddyH]

Das Tutorial heißt "MySQL ohne Komponenten" :mrgreen:. Aber es ist eine Klasse.

[milos]

Bei mir kommt ne zugriffsverletzung :(

[mkinzler]

Dann zeig mal deinen Code

[milos]

Bis jetzt:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, MySQL, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  _myCon: PMySQL;       //unseren Verbindungsdeskriptor
  host, user, pass, db: PChar;       //die Anmeldedaten
begin
  //wir werden uns als Root-Benutzer in localhost einloggen, ohne eine
  //bestimmte Datenbank auszuwählen
  host := 'localhost';
  user := 'root';
  pass := '';
  db := 'lan';

  //jetzt wird _myCon initialisiert
  _myCon := mysql_init(nil);
  if _myCon = nil then
  begin
    ShowMessage('Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
    Exit;
  end;
  
  //anschließend wird die Verbindung hergestellt
  if mysql_real_connect(_myCon, host, user, pass, db, 3306, nil, 0) = nil then
  begin 
    ShowMessage('Die Verbindung konnte nicht hergestellt werden. Ursache: ' + mysql_error(_myCon));
    Exit;
  end;

  ShowMessage('Verbindung hergestellt');

  //zum Schluss wird die Verbindung wieder geschlossen
  mysql_close(_myCon);
end;


end.

[Die Muhkuh]

Wo kommt die Meldung? :roll:

[milos]

Bild angehengt

[Die Muhkuh]

An welcher Stelle im Code...