|
unit DBAccess;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
interface
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
uses
//----------------------------------------------------------------------------
// local
//----------------------------------------------------------------------------
Utilities, MySQL, Options, Language,
//----------------------------------------------------------------------------
// global
//----------------------------------------------------------------------------
Math, SysUtils, StrUtils, Dialogs;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
const
host='co';
port=1653;
sqldatabase='formatika';
sqltable='elbeusage';
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
var
MySQL: PMYSQL;
MyTime: longword;
MyComp: integer;
user:String;
password:String;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
procedure SQLConnect(MyHost:string;MyUser: string;MyPass: string);
function SQLUpdate():integer;
function SQLInsert():integer;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
implementation
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
procedure SQLConnect(MyHost:string;MyUser: string;MyPass:string);
begin
try
MySQL := mysql_init(nil);
if MySQL = nil then
errorn(472,'Keine Verbindung zur Datenbank');
MyTime := 30;
if mysql_options(MySQL, MYSQL_OPT_CONNECT_TIMEOUT, @MyTime) <> 0 then
errorn(473,'Keine Verbindung zur Datenbank');
MyComp:=0*CLIENT_COMPRESS;
if mysql_real_connect(MySQL, pAnsiChar(AnsiString(MyHost)), pAnsiChar(AnsiString(MyUser)),
pAnsiChar(AnsiString(MyPass)), nil, Port*2, nil, MyComp) = nil then
errorn(474,'Keine Verbindung zur Datenbank');
if mysql_connect(MySQL, pAnsiChar(AnsiString(MyHost)), pAnsiChar(AnsiString(MyUser)), pAnsiChar(AnsiString(MyPass))) = nil then
errorn(475,'Keine Verbindung zur Datenbank');
except
end;
end;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
function SQLInsert():integer;
var
Query,Hostname,IPAddr,WSAErr: String;
sqlcode: integer;
Dll, Url:String;
howoften,Avgtimelang,AvgtimeIDE:integer;
Firstreported, Reportdate:TDate;
begin
howoften:=0;
Avgtimelang:=0;
AvgtimeIDE:=0;
Firstreported:=now;
Reportdate:=now;
//
GetOwnIP(HostName,IPAddr, WSAErr);
SQLConnect(host+host+host+'.de',User,Password);
Query := 'insert into '+sqldatabase+'.'+sqltable
+ ' (url, reportdate, dll, howoften, '
+' Avgtimelang, AvgtimeIDE, Firstreported) '
+ ' values("'+Url+'" '
+ ' ,"'+datetostr(reportdate)+'" '
+ ' ,"'+dll+'" '
+ ' ,"'+inttostr(howoften)+'" '
+ ' ,"'+inttostr(Avgtimelang)+'" '
+ ' ,"'+inttostr(AvgtimeIDE)+'" '
+ ' ,"'+datetostr(Firstreported)+'")';
try
//-- mysql_query
sqlcode:= mysql_query(MySQL, pAnsiChar(AnsiString(Query)));
Result:=sqlcode;
finally
//-- mysql_close
mysql_close(MySQL);
end;
end;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
function SQLUpdate():integer;
var
Hostname,WSAErr: String;
SQLstmt: Ansistring; SQLCode:integer;
Dll, IPAddr, Url:String;
howoften,Avgtimelang,AvgtimeIDE:integer;
Firstreported, Reportdate:TDate;
begin
howoften:=0;
Avgtimelang:=0;
AvgtimeIDE:=0;
Firstreported:=now;
Reportdate:=now;
//
GetOwnIP(HostName,IPAddr, WSAErr);
SQLConnect(host+host+host+'.de',User,Password);
SQLstmt := 'update '+sqldatabase+'.'+sqltable
+ ' set dll="'+Dll+'" '
+ ' , howoften="'+IntToStr(howoften)+'" '
+ ' , Avgtimelang="'+IntToStr(Avgtimelang)+'" '
+ ' , AvgtimeIDE="'+IntToStr(AvgtimeIDE)+'" '
+ ' , Firstreported="'+datetostr(Firstreported)+'" '
+ ' where url="'+url+'and reportdate="'+datetostr(reportdate)+'";';
try //-- mysql_query
sqlcode:= mysql_query(MySQL, pAnsiChar(SQLstmt));
finally //-- mysql_close
mysql_close(MySQL);
end;
if sqlcode<>0 then
errorn(476,'Ergebnis='+inttostr(sqlcode));
result:=sqlcode;
end;
{------------------------------------------------------------------}
{- -}
{- Ende dieser Quelle -}
{- -}
{------------------------------------------------------------------}
end.
¤ Dauer der Verarbeitung: 0.1 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
