Hallo Leute,
Hab mir mal das Tutorial hier angesehen,
www.dsdt.info/tutorials/mysqldirect/
Funzt auch alles recht gut mit dem Connencten zu meiner Datenbank, allerdings ist mir noch nich klar wie ich
den Inhalt überprüfen kann.
also hier mal den Code
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var dwConnectionTypes: DWORD;
begin
if not InternetGetConnectedState(@dwConnectionTypes, 0)
then
// not connected
if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE
or
INTERNET_AUTODIAL_FORCE_UNATTENDED, 0)
then
begin
FMysql.Free;
if FResult<>
nil then
FResult.free;
Form1.Close
end;
FMysql.Host := '
http://localhost/............';
FMysql.port := 3306;
FMysql.user :='
.............';
FMysql.password := '
.............';
FMysql.UnixSocket := '
';
FMysql.Db := '
.............';
// Datenbank auf dem Server
FMysql.UseNamedPipe := false;
FMysql.UseSSL := false;
FMysql.Compress := true;
FMysql.TrySockets := false;
if FMysql.Connect
then Form4.Show;
if FMysql.Connect
then Form4.Label1.Caption := '
Verbindung aufgebaut, Benutzer wird überprüft, Bitte Warten'
else Form4.Label1.Caption := '
Fehler beim Verbinden: '+FMysql.LastError;
end;
Nun ich habe auf der ersten Form ein Edit, wo der jenige seinen Usernamen einträgt.
Auf einen klick auf den Button verbindet sich das Programm mit dem Internet, und dem Server der Datenbank.
Danach öffnet sich eine neue Form.
Wie kann ich nun das so machen das nach dem Verbinden zur Datenbank der Username, den der jenige eingetragen hat, mit der Datenbank verglichen wird, und das Programm dann dementsprechend handelt
vielleicht kenn sich ja jemand mit funpic.de aus, auf dem liegt meine Datenbank.
Danke an alle schonmal