Quelle DBAccess.pas Sprache: Delphi

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.

quality92%

¤ Dauer der Verarbeitung: 0.18 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.