Delphi Forum

mehmetantalya yazdı: 28 Ara 2020 10:13 elinize saglik

Teşekkür ederim. Bir çırpıda aklıma gelenleri yazıverdim.

DAHA HIZLI ÇALIŞAN UYGULAMA GELİŞTİRMEK

Merhaba,

Bu yazıda Delphi ile kod yazarken hız konusunda dikkat edilmesi gereken hususlara değinmek istedim.

Maalesef delphi optimizasyon konusunda çok iyi sayılmaz. clang ve gcc delphi’nin çok ötesinde optimizasyon yapıyorlar. Bu nedenle mümkün mertebe ...

Uzunca bir düşünmeden sonra sorunu buldum. Normalde assembly'de mov komutunun operandları memory olabiliyor; ilki memory ve ikincisi immediate de olabiliyor. Ancak delphi'de özel bir durum var. Ram'deki değişkenleri doğrudan mov ile değiştiremiyoruz. Veri aktarımını registerler üzerinden yapmak ...

Merhaba,

Assembly ile şöyle bir fonksiyon yazıyorum:

function test(numero:word;var str:pansichar):pansichar;
asm
mov [rdx], 'zz'
end;

x64 ABI'ye göre fonksiyon ve prosedure'larda parametreler sırasıyla rcx,rdx,r8 ve r9 registerlerine aktarılır. Buna göre str parametresi rdx registerinde olmak ...

Teşekkür ederim ilginize.

Çok genel bir soru. Delphi sürümleri arası değişiklikten olabilir.

Merhaba,

Aşağıdaki kodu çalıştırdığımda "[dcc64 Warning] server.pas(79): W1012 Constant expression violates subrange bounds" şeklinde uyarı alıyorum.


var
NonBlock:cardinal;
...
NonBlock:=1;
if ioctlsocket(ChannelInfo.serverSock,FIONBIO,NonBlock) = SOCKET_ERROR then begin
ShowMessage('Socket ...

Merhaba,

Başka bir projede bu değişkenleri bu şekilde oluşturdum ve proje çalışıyordu. Hatta sıfırdan bir proje oluşturdum. Herhangi bir sorun yoktu. Bu projede ne hata var anlamadım. Form ekleyerek de yapmıştım ama maalesef olmadı Muharrem Bey. İşin içinden çıkamadım. Sanırım sıfırdan yapacağım ...

Merhaba Muharrem Bey,

Evet yapmakta olduğum proje konsol, ancak form ile deneyince de olmadı.

" conn:=TFDConnection.Create(nil);
qry:= TFDQuery(nil);
lnk:= TFDPhysSQLiteDriverLink(nil);"

Kodları sadeleştirirken udb uniti içinde create_DBs procedurüne eklemeyi unutmuşum.

procedür şöyle olmalı ...

Muharrem Bey'e katılıyorum. Thread oluşturma ya da application processmessage düşünülebilir.

Bence de challengelar devam etmeli.

Aşağıdaki link ile projeyi gönderiyorum. Teşekkür ederim ilginize.

http://s3.dosya.tc/server6/pk50y0/ASTRA.zip.html

Maalesef devam ediyor. Yazmayı unutmuşum kusura bakmayın. Ben en iyisi proje dosyasını ekleyim.

Merhaba,

Data module komponentleri ekleyince durum şöyle oluyor:


unit uDM;

interface

uses
System.SysUtils, System.Classes,

FireDAC.Stan.Intf, FireDAC.Stan.Option,
FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys ...

Merhaba,
Access Violation'ın ne olduğunu biliyorum ancak. Kodu kontrol ettiğimde böyle bir hata vermemesi gerekiyor.
Debug ettiğimde stringde de bir sorun yok.