Clomosy | Forum : A��lan Console Ekran�n� Kapatma

A��lan Console Ekran�n� Kapatma : Hayır şu anda o ekranı görmemekteyim...

Wed, 18 Mar 2026 10:43:07 +0000

Yazar: M-Guney
Konu: 1260
G�nderim Zaman�: 18 Mart 2026 Saat 10:43

Hay�r �u anda o ekran� g�rmemekteyim bir problem bulunmamaktad�r.https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

A��lan Console Ekran�n� Kapatma : Merhaba Güney,Son konuda kodun...

Wed, 04 Feb 2026 18:27:53 +0000

Yazar: Emr.Erkmn
Konu: 1260
G�nderim Zaman�: 04 �ubat 2026 Saat 18:27

Merhaba G�ney,
Son konuda kodun do�ru demi�sin. �u an mevcut hatan devam ediyor mu?https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28on72PdrCzSjY4U6VaAw1EQ==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous">

D�zenleyen Emr.Erkmn - 04 �ubat 2026 Saat 18:28

A��lan Console Ekran�n� Kapatma : Kodun Doğru Halivar ConfigList...

Wed, 04 Feb 2026 14:50:15 +0000

Yazar: M-Guney
Konu: 1260
G�nderim Zaman�: 04 �ubat 2026 Saat 14:50

Kodun Do�ru Hali

var

ConfigList : TClStringList;

ConfigPath : String;

WatchdogTimer : TClTimer;

IsChecking : Boolean;

InheritedForm : TclForm;

CheckQuery : TClSqlQuery;

void InitForm(AForm : TclForm);

{

InheritedForm = AForm;

}

void InitConfig;

{

try

ConfigPath = Clomosy.AppFilesPath + 'db_config.txt';

if (ConfigList == nil)

{

ConfigList = Clomosy.StringListNew;

}

if (clFileExists('db_config.txt', Clomosy.AppFilesPath))

{

ConfigList.Text = clLoadFromFile(ConfigPath);

}

except

ShowMessage('InitConfig Exception: ' + LastExceptionMessage);

}

void SaveDBConnection(AHost, AUser, APass, ADBName : String; APort: Integer);

{

try

if (ConfigList == nil) { ConfigList = Clomosy.StringListNew; }

ConfigList.Clear;

ConfigList.Add('Host=' + AHost);

ConfigList.Add('User=' + AUser);

ConfigList.Add('Pass=' + APass);

ConfigList.Add('DB=' + ADBName);

ConfigList.Add('Port=' + IntToStr(APort));

clSaveToFile(ConfigPath, ConfigList.Text);

ShowMessage('Database configuration saved successfully.');

except

ShowMessage('SaveDBConnection Exception: ' + LastExceptionMessage);

}

void OnHealthTimeout;

{

if (IsChecking == True)

{

IsChecking = False;

WatchdogTimer.Enabled = False;

ShowMessage('Connection Timeout: Server 5 saniye i�inde cevap vermedi.');

}

void SetupTimer;

{

if ((WatchdogTimer == nil) && (InheritedForm <> nil))

{

WatchdogTimer = InheritedForm.AddNewTimer(InheritedForm, 'WatchdogTimer', 5000);

WatchdogTimer.Enabled = False;

InheritedForm.AddNewEvent(WatchdogTimer, tbeOnTimer, 'OnHealthTimeout');

}

function CheckDatabaseHealth(AHost, AUser, APass, ADBName : String; APort: Integer): Boolean;

{

try

Result = False;

SetupTimer;

if (WatchdogTimer == nil)

{

ShowMessage('Hata: Timer ba�lat�lamad�. InitForm �a�r�ld��ndan emin olun.');

exit;

}

IsChecking = True;

WatchdogTimer.Interval = 5000;

WatchdogTimer.Enabled = True;

// Step 1: Connectivity Check

Clomosy.DBSQLServerConnect('SQL Server', AHost, AUser, APass, ADBName, APort);

// Step 2: Lazy Initialization of Query

CheckQuery = Clomosy.DBSQLServerQuery;

CheckQuery.SQL.Text = 'SELECT DB_ID(' + QuotedStr(ADBName) + ') as db_found';

CheckQuery.Open;

if (IsChecking == True)

{

IsChecking = False;

WatchdogTimer.Enabled = False;

if (CheckQuery.FieldByName('db_found').AsString == '')

{

ShowMessage('Hata: Database bulunamad�.');

Result = False;

}

else

{

Clomosy.DBSQLServerConnect('SQL Server', AHost, AUser, APass, ADBName, APort);

Result = True;

}

except

IsChecking = False;

if (WatchdogTimer <> nil)

{

WatchdogTimer.Enabled = False;

}

ShowMessage('Ba�lant� Hatas�: ' + LastExceptionMessage);

Result = False;

}

function LoadAndConnect: Boolean;

var

vHost, vUser, vPass, vDB : String;

vPort : Integer;

{

InitConfig;

try

Result = False;

if (ConfigList.Count > 0)

{

vHost = ConfigList.Values['Host'];

vUser = ConfigList.Values['User'];

vPass = ConfigList.Values['Pass'];

vDB = ConfigList.Values['DB'];

if (ConfigList.Values['Port'] == '')

{

vPort = 1433;

}

else

{

vPort = StrToInt(ConfigList.Values['Port']);

}

Result = CheckDatabaseHealth(vHost, vUser, vPass, vDB, vPort);

}

else

{

ShowMessage('Ayarlar bulunamad�.');

Result = False;

}

except

ShowMessage('LoadAndConnect Exception: ' + LastExceptionMessage);

Result = False;

}

{

WatchdogTimer = nil;

}

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

A��lan Console Ekran�n� Kapatma : Kodumda eğer ki bilgiler yanlış...

Wed, 04 Feb 2026 14:46:28 +0000

Yazar: M-Guney
Konu: 1260
G�nderim Zaman�: 04 �ubat 2026 Saat 14:46

Kodumda e�er ki bilgiler yanl�� girilirse timeout veriyor ve ard�ndan bir console ekran� a��l�yor o ekran� kapatman�n yolunu bulamad�m. Mobilde o ekran geldikten sonra Edit inputlar�n� bozuyor de�i�mi� olan input u g�rm�yor eskiye sabit kal�yor.

var

ConfigList : TClStringList;

ConfigPath : String;

WatchdogTimer : TClTimer;

IsChecking : Boolean;

InheritedForm : TclForm;

CheckQuery : TClSqlQuery;

void InitForm(AForm : TclForm);

{

InheritedForm = AForm;

}

void InitConfig;

{

try

ConfigPath = Clomosy.AppFilesPath + 'db_config.txt';

if (ConfigList == nil)

{

ConfigList = Clomosy.StringListNew;

}

if (clFileExists('db_config.txt', Clomosy.AppFilesPath))

{

ConfigList.Text = clLoadFromFile(ConfigPath);

}

except

ShowMessage('InitConfig Exception: ' + LastExceptionMessage);

}

void SaveDBConnection(AHost, AUser, APass, ADBName : String; APort: Integer);

{

try

if (ConfigList == nil) { ConfigList = Clomosy.StringListNew; }

ConfigList.Clear;

ConfigList.Add('Host=' + AHost);

ConfigList.Add('User=' + AUser);

ConfigList.Add('Pass=' + APass);

ConfigList.Add('DB=' + ADBName);

ConfigList.Add('Port=' + IntToStr(APort));

clSaveToFile(ConfigPath, ConfigList.Text);

ShowMessage('Database configuration saved successfully.');

except

ShowMessage('SaveDBConnection Exception: ' + LastExceptionMessage);

}

void OnHealthTimeout;

{

if (IsChecking == True)

{

IsChecking = False;

WatchdogTimer.Enabled = False;

ShowMessage('Connection Timeout: Server 5 saniye i�inde cevap vermedi.');

}

void SetupTimer;

{

if ((WatchdogTimer == nil) && (InheritedForm <> nil))

{

WatchdogTimer = InheritedForm.AddNewTimer(InheritedForm, 'WatchdogTimer', 5000);

WatchdogTimer.Enabled = False;

InheritedForm.AddNewEvent(WatchdogTimer, tbeOnTimer, 'OnHealthTimeout');

}

function CheckDatabaseHealth(AHost, AUser, APass, ADBName : String; APort: Integer): Boolean;

{

try

Result = False;

SetupTimer;

if (WatchdogTimer == nil)

{

ShowMessage('Hata: Timer ba�lat�lamad�. InitForm �a�r�ld��ndan emin olun.');

exit;

}

IsChecking = True;

WatchdogTimer.Interval = 5000;

WatchdogTimer.Enabled = True;

// Step 1: Connectivity Check

Clomosy.DBSQLServerConnect('SQL Server', AHost, AUser, APass, ADBName, APort);

// Step 2: Lazy Initialization of Query

CheckQuery.SQL.Text = 'SELECT DB_ID(' + QuotedStr(ADBName) + ') as db_found';

CheckQuery.Open;

if (IsChecking == True)

{

IsChecking = False;

WatchdogTimer.Enabled = False;

if (CheckQuery.FieldByName('db_found').AsString == '')

{

ShowMessage('Hata: Database bulunamad�.');

Result = False;

}

else

{

Clomosy.DBSQLServerConnect('SQL Server', AHost, AUser, APass, ADBName, APort);

Result = True;

}

except

IsChecking = False;

if (WatchdogTimer <> nil)

{

WatchdogTimer.Enabled = False;

}

ShowMessage('Ba�lant� Hatas�: ' + LastExceptionMessage);

Result = False;

}

function LoadAndConnect: Boolean;

var

vHost, vUser, vPass, vDB : String;

vPort : Integer;

{

InitConfig;

try

Result = False;

if (ConfigList.Count > 0)

{

vHost = ConfigList.Values['Host'];

vUser = ConfigList.Values['User'];

vPass = ConfigList.Values['Pass'];

vDB = ConfigList.Values['DB'];

if (ConfigList.Values['Port'] == '')

{

vPort = 1433;

}

else

{

vPort = StrToInt(ConfigList.Values['Port']);

}

Result = CheckDatabaseHealth(vHost, vUser, vPass, vDB, vPort);

}

else

{

ShowMessage('Ayarlar bulunamad�.');

Result = False;

}

except

ShowMessage('LoadAndConnect Exception: ' + LastExceptionMessage);

Result = False;

}

{

WatchdogTimer = nil;

}