Delphi Forum

function ExecFileAndWait(const aCmdLine: String; Hidden, doWait: Boolean): Boolean;
var
StartupInfo : TStartupInfo;
ProcessInfo : TProcessInformation;
begin
// setup the startup information for the application

FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
with StartupInfo do ...

Merhabalar

Eğer çalıştırdığın dos uyglamaların ekran çıktılarını almak istersen aşağıdaki kodu deneyebilirsin. Ben bu kodu bu sitedeki bir yazıdan almıştım ama deneme fırsatım olmadı.


procedure RunDosInMemo(DosApp:String;AMemo:TMemo) ;
const
ReadBuffer = 2400;
var
Security ...

Tekrar merhaba,

ISQL kullanımında yaşadığım ""Single isql command exceeded maximum buffer size" hatasının neden olduğunu anlamak için bir iki deneme yaptım, SP ün text'i 32 KB üstüne çıkınca oluyor, benim gönderdiğm SP kodu 32 kb üstünde ise maalesef bu hata ile karşılaşıyorum. Aynı kodu IBConsole ...

Merhaba Terminator

Önerdiğin şekilde FB 1.5.3 RC3 yükledim ve epeydir beni rahatsız eden SP ün ilk kullanımındaki yavaşlık sorunu çözüldü. Önerilerin ve yardımların için teşekürler.

Yanlız bu sefer ISQL ile ilgili bir sıkıntı başgösterdi. Ben projenin tüm SP ve Trigger'lerini proje.sql dosyasında ...

Terminator, Önerilerini ilk fırsatta deneyim burdan yazacağım

Yanlız bir önceki yazımdada belirttiğm gibi testleri


Bu tesleri
1. kendi yazdığım basit bir test programı ile yapıyorum zaten. (Gerçek projede gözden kaçan unsurlar olabilir diye) Kullanılan componentler : TSQLConnection ...

Kusura bakmayın, Daha önceki yazılarımda sorunu izah ederken mümkün oldukça insanların fazla vaktini almamak için yazıyı kısa tutmaya çalışmıştım.

yazınızda belirtiğiniz

SP nin adını değiştir yeniden yarat.
suspend exiti if blogu olmadan kullan

denendi durum aynı


SP ni değiştirdiğinde ...

Terminator arakadas her ne kadar uslubunuzu onaylamasamda yazınız için teşekkürler.

Görünüyor ki yazdığım yazıyı dikkatli okumamışsın


Tanesi 10 ms olan 1000 tane db sayfası(data+index) okuduğunda bunun
bekleme süresi ortalama 10 saniyedir.
Senin SP kaç sayfa okuyor yazıyor


demişsin

ben ...

Öncelikle önerileriniz ve ilginiz için Teşekkürler,

Terminator arkadaşımızın önerdiği yöntemleri, bu yazıyı yazmadan önce denemiştim. Bugün, Sorunun kaynağını daha iyi tespit edebilmek için yeni bazı testler yaptım.

ilk olarak bu yavaşlığın SP ilk yüklenmesindenmi yoksa içindeki kodun ...

Yazdığımız bir projede, SP ilk kez kullanıldığında bazen işini yapması 10-15 saniyeyi geçiyor, Bu SP'de select işlemleri yapılıyor ve bu select'ler de erişilen tablolara hep "primary key" üzerinden ulaşılıyor, Tabloda kayıt sayıcı çok ama kullanılan kriter olarak 5-10 kayıt dönen işlemler. SP ...

Herhangi bir anda bunu öğrenmek için aşağıda kodu kullanabilirsin


procedure TFrAccounting.DBGrid1DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
var
ShiftState: TShiftState;
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
ShiftState ...

Aşağıda kod işini görecektir



function GetPrimaryNicMacAddress : string;
type
TGUID = record
A, B: word;
D, M, S: word;
MAC: array[1..6] of byte;
end;
var
UuidCreateFunc: function(var guid: TGUID): HResult; stdcall;
handle: THandle;
g: TGUID;
WinVer: _OSVersionInfoA;
i: integer;
begin ...

Yaptığım uygulamada elimde nesnenin sadece handle'ı var, bu handle numarası ile o nesnenin tüm özelliklerine nasıl erişebilirim. (bu handle, bir form'a, edit'e veya Label'a ait olabalir)

Aşağıdaki sql ile yapabilirsin

Teşekkürler vedatkaba arkadaşım,

Verdiğin kod işimin bir parçasını çözdü, fakat şu anda mouse'un üzerinde bulunduğu nesnenin adı lazım, aslında o nesnenin her türlü bilgisine erişmem gerekiyor.

Eğer bu konuda da çözümün varsa bekliyorum. Şimdiden teşekkürler.

Merhabalar

Form üzerinde birçok panel ve paneller üzerinde bir çok nesne var, Mouse o onda hangi nesnenin üzerinde ise o nesnenin adi veya classname'ini bulmam gerekiyor.