procedure TForm1.BitBtn4Click(Sender: TObject);
var
klar:integer;
textrein : string;
begin
begin
host := '
localhost';
user := 'root';
pass := '';
db := pchar('mails');
_myCon := mysql_init(nil);
if _myCon = nil then
begin
ShowMessage('Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
Exit;
end;
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;
//**************************Verbindung steht !
mysql_select_db(_myCon, pchar('mails'));
msg := SakMsgList1.items[ currentMsg]; //Hier lade ich den Text einer Mail
dateneintrag := ''''+msg.From+''''+ ',' +''''+msg.Date+''''+ ',' +''''+msg.Subject+''''+ ',' +''''+msg.ContentType+''''+ ',' +''''+msg.Text.Text+'''' ;
//**************************Bis hierher sind die Variabeln auch korrekt bestückt !
query := pchar('INSERT INTO popper2 (von,datum,subject,art,text) values (' + dateneintrag +')' );
klar := mysql_real_query(_myCon,
query, Length(
query));
//**************************Jetzt gibt mir klar eine -1 zurück,also nicht verarbeitet !
end;
end;