Merhaba;
Konuyla ilgili sorunun kaynağını buldum, çoğu kişinin işine yarayacak bir bilgi olabilir;
Fesih hocam sizin mantığın araştırınca marco cantu'nunda
aynı yöntemle kullandığını gördüm bundan dolayı bu şekilde ilerlemeye emin oldum.
Sorunla sonradan karşılacaklara direk anlaşılır olması açısından; Fesih hocamında yazdığı gibi basitçe kodun kullanımı;
ServerCon();
TThread.CreateAnonymousThread(
procedure()
begin
TThread.Synchronize(nil,
procedure()
begin
AniIndicator1.Visible := True;
AniIndicator1.Enabled := True;
frmAna.AniIndicator1.BringToFront;
end);
try
// işlemleriniz+
// işlemleriniz-
finally
TThread.Synchronize(nil,
procedure()
begin
AniIndicator1.Enabled := False;
AniIndicator1.Visible := False;
frmAna.AniIndicator1.SendToBack;
end);
end;
end).Start;
procedure TfrmA.ServerCon();
begin
try
if conServer.Connected = False then
conServer.Connected := true;
Except
showmessage('Check Your Internet Connection');
// İnternet Bağlantınızı Kontrol Edin.
Exit;
end;
end;
Alıntı:Project Projectl.exe raised exception class EOLEDBError .A.ith message 'OLE DB error occurred. Code 80040 1F0h. Colnitiabze has not been called.'.
Yukarıdaki koddaki nüans server bağlantısını
Connection nesnesini
Thread içinde
yapmamaktan geçiyor aksi durumda yukarıdaki hata ile karşılaşırsınız.
Hatayı araştırdığımda;
CoInitialize ve
Execute yöntemleriyle çağırmanın gerekliliğine vurgu yapılıyor. Ben şimdilik bu kolay yöntemle işi çözmüş oldum.
Bundan dolayı Connection işlemini (ServerCon())
Thread başlamadan yapıyorum.
Teşekkürler.
