Thema: Delphi DLL mit Form

Einzelnen Beitrag anzeigen

Capa

Registriert seit: 26. Okt 2003
102 Beiträge
 
RAD-Studio 2010 Arc
 
#20

AW: DLL mit Form

  Alt 5. Mär 2011, 11:43
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

Geändert von Capa ( 5. Mär 2011 um 11:57 Uhr)
  Mit Zitat antworten Zitat