Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/Delphi/Bille 0.71/   (Columbo Version 0.7©)  Datei vom 6.10.2012 mit Größe 5 kB image not shown  

SSL DBAccess.pas   Interaktion und
PortierbarkeitDelphi

 
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.


 

92%


¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.16Angebot  Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können  ¤

*Eine klare Vorstellung vom Zielzustand




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.