Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/Delphi/Bille 0.71/ (Beweissystem der NASA Version 6.0.9^©) Datei vom 6.10.2012 mit Größe 5 kB

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.

quality92%

¤ 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.