irgendwie will das bei mir nie so funktionieren wie ich das will.
Hab das nun so gemacht das ich nur bestimmte Sachen exportiere in dem Fall nun
die
MySQL Sachen.
Delphi-Quellcode:
library DLL2;
uses
Sharemem, umysqlvio, uMysqlCT, uMysqlClient, uMysqlHelpers,
SysUtils, Classes;
{$I mysqlinc.inc}
type
TMySqlLoginData = Record
mysqladresse: ansistring;
mysqldatenbank: ansistring;
mysqlusername: ansistring;
mysqlpasswort: ansistring;
mysqlport: integer;
End;
var XMySQL: TMysqlClient;
XResult: TMysqlResult;
{$R *.res}
function SendMysqlData(mydata: TMySqlLoginData): Boolean;
begin
XMySQL := TMysqlClient.create;
XMysql.Host := mydata.mysqladresse;
XMysql.Db := mydata.mysqldatenbank;
XMysql.user := mydata.mysqlusername;
XMysql.password := mydata.mysqlpasswort;
XMysql.port := mydata.mysqlport;
XMysql.UnixSocket := '';
XMysql.UseNamedPipe := false;
XMysql.UseSSL := false;
XMysql.Compress := false;
XMysql.TrySockets := false;
if (XMysql.Connect) then
Result := True
else
Result := False;
end;
exports SendMysqlData;
begin
end.
Aber selbst diese kleine Funktion macht mir Probleme mit ner Zugriffsverletzung.
Vom Aufbau her sollte doch da kein Problem liegen bin ich der Meinung.
Hab das bei Type definierte vorher schon mit string und shortstring versucht kam das selbe ergebnis.
Auch der Versuch die beiden Variablen in der Function zu deklarieren half nicht.
Mfg Capa