access veritabanında bir tablo içerisinden text'e girilen bir string değeri sql kodları ile süzdürmeyeçalışıyorum hata veriyor yazmış olduğum kodu inceleyip yardım edermisiniz
With AdoQuery Do
begin
with sql do
Begin
Clear;
Close;
Add('select *');
Add('from ATTablo');
Add('Where Adi='+Edit1.text);
Open;
end;
end;
burada Grid1 içerisinde göstermesi gerekiyor ama edit1 içerindeki yazılan bilginin karşılığı bulunamadı şeklinde hata veriyor bu kod numerik alanlar için süzdürme yaptığımda işliyor
açil yardım gerekiyor
Delphi - .....................................
thread olayının en basit kullanım örneği
var
Form1: TForm1;
Thread1ID, Thread1Handle : Cardinal;
Procedure Thread1;SafeCall;
begin
//buraya çalıştığı zaman programınızda duraklamaya neden olan
//işlevlerin kodlarını yazın...
//örneğin ben ftp ye upload yaparken program da diğer işlevler
//beklemeye geçiyodu böle bir yapı ile sorunumu çözdüm..
end;
//başlatacağınız zaman bu kodu kullanacaksınız sadece....
Drony Code spider ile taranarak dünyadaki forum ve tips sitelerinden toplanmış yaklaşık 11.000 Delphi code.. Umarım çalışmalarınızda yardımcı olur..
iyi günler.
http://www.unreadedpost.com/viewtopic.php?t=3454
Delphi - .....................................
Delphi Kodbankası
Evet Arkadaslar Benim kendim yaptığım Bir Tane Delphi Kodbankasını Sizlerle Paylaşmak istiyorum. Çook Basit belki ama benim ilk projem olduğu için baya güzel görünüyor... umarım delphi ile uğrasan arakadasalrın işine yarar
Öncelikle burada böyle bir konu açtığım için herkesten özür diliyorum ama kendimi burda bu konuyu açmak zorunda hissettim...
Kodbank ın daha doğrusu delphiturk.com gerçekten iyi bir süzgeçten geçirilmeye ihtiyacı
var bu işi yapabilcek arkadaşlar da sitede mevcut site de en çok kod göndren ve en çok
online olan arkaşlardan en az 5 tane admin seçilse ve onlar da günlük 30 dk ayırsalar
bu gereksiz kod ve soruları silseler gerçekten kodbak çok temiz bir kodbank olur olur
ve ayrıca database de de biraz da olsa şişme önlenmiş olur.... bu sadece size sunulmuş bir öneri...eminim ki sitede ki tüm arkadaşlar bu konuda aynı fikri düşünüyordur...
Herkesten tekrar bu konuyu açtığım için özür diliyorum...
Çalışmalarınızda Başarılar Dilerim...
Saygılarımla...
Mehmet KOCABAŞ
mehmetkocabas2@hotmail.com
Delphi - .....................................
YARDIM PLS
ben media palyerim için osciloscope
yapmak itiyorum ama kodu bir turlu bulamadım yardım edebilirmisiniz lütfenn!!!
Delphi - .....................................
C NIN DELPHI KARSILIKLARI (CEVIRI) - C KODLARINI ANLAYABILME
HWND CreateWindow(
LPCTSTR lpClassName,// pointer to registered class name
LPCTSTR lpWindowName, // pointer to window name
DWORD dwStyle,// window style
int x,// horizontal position of window
int y,// vertical position of window
int nWidth,// window width
int nHeight,// window height
HWND hWndParent,// handle to parent or owner window
HMENU hMenu,// handle to menu or child-window identifier
HANDLE hInstance, // handle to application instance
LPVOID lpParam// pointer to window-creation data
);
İlk parametre adı lpClassName ve tipi LPCTSTR dir.Burada bir çok değişkende kullanılan "Macar rakam işaret sistemi / Hungarian notation" sistemi kullanılmıştır.lpClassName değişkeninde ilk 2 karakter "long pointer" kısaltmasıdır.dwStyle değişkenindeki dw"DWORD" tipini, nWidth değişkeninde de n Short int tipini (16bitte "n" Short int iken32 bitte integer dir) belirtir.
Aşağıda C de kullanılan Macar kısaltmaları'nın listesi bulunmaktadır.
PrefixC language Data Type
b Boolean
by Byte
c Char
cx/cy short Int used as size
dw DWORD
fn Function
h Handle
i Integer
l Long
n n bir tipi göstermez.Genelde değişekninsayı ileilgiliolduğunu belirtir.Örneğin
metiniçinddeki karaktersayısı , ddizidekieleman sayısını vs.
p Pointer to address of variable
s string
sz ASCI null terminated string
w Word
x, y Short Int used as coordinates
Çoğu API fonksiynunda "lp" ile karşılaşacaksınız.Bu "Pointer" (16bit Word tipi - 2 byte) ile "Long Pointer" i (32 bit DWord tipi - 4 byte) karıştırmamak içindir.32 bit Windows sistemlerde bunun bir önemi yoktur çünkü tümpointerlar 32 bit (4 byte DWord) tir.
Aşağıda bazı C tiplerinin Delphi karşılıkları listelenmektedir
Not: C deki Unsigned Integer (UINT) gerçek bir Delphi karşılığı yoktur.C deki UINT 0 dan 4,294,967,294 arasında bir Cardinal değeri ve -1 negatif değerini alabilir.Delphi UINT'tin bir LongWord (Cardinal) olduğunu söylüyor ama UINT hex olarak $FFFFFFFF (maksimum DWord) değerini aldığında Windows sistemlerde "-1" manasına geliyor.
UINT C de işaretsiz int olarak tanımlıdır.Microsoft UINT_MAX sabitini 4,294,967,295 olarak belirtiyor ve bu durumda -1 e yer kalmıyor.Microsoftun -1 kullanmasının muhtemelen iki sebebi vardır: İlk olarak C derleyicisi işaretsiz tiplerde overflow ve underflow (taşmaları) umarsamayacaktır.İkinci olarak "4294967295" yada "0xffffffff" yazmaktansa -1 yazmak daha kolaydır , özellikle değişkenin asıl boyu bilinmediğinde ve değişime eğimli ise.64 bit tipte değişkenin gerçek değeri 4294967295 olamayacatır."-1" in manası değişken boyuna bakmaksızın bütün bitler 1 demektir ,
C deki birkaç veri tipi için Delphide sadece bir veri tipinin olması kafanızı karıştırabilir.Örneğin DWORD , UINT , HWDN , ULONG ve LCID" hepsi Delphi'de Cardinal tipidir.Karışıklığı önlemek için bir çok Delphi kodunda Cardinal yerine "LongWord" , integer yerine de "LongInt" kullanılmıştır.C veri tipleri ile başınız dertte ise kodunuzda C veri tiplerini kullanabilirsiniz.Bunların gerekli olduğu anlaşılması üzerine windows.pas ta tanımlanmışlardır.
windows.pas ta aşağıdaki şekilde tanımlıdırlar :
type
DWORD = LongWord;
LONG = Integer;
LCID = DWORD;
SHORT = Smallint;
Çoğu parametre pointer tipinde olması nedeni ile pointerlarda windows.pas'ta tanımlıdır.
Aşağıda çok kullanılan bazı pointerların windows.pas taki tanımları bulunmaktadır.
PByte = ^Byte;
PLongint = ^Longint;
PInteger = ^Integer;
PINT = ^Integer;
PLongWord = ^LongWord;
PSmallInt = ^Smallint;
PDWORD = ^DWORD;
LPDWORD = PDWORD;
PDouble = ^Double;
PShortInt = ^ShortInt;
--BOOLEAN ve BOOL , LongBoolean nedir?
Birçok API fonksiyonunda BOOL tipinde (veri tipi görebilirsiniz.BOOL 32 bit "Long" Boolean tipidir. (4 byte lık bir değişkenin 32 bit hafıza bloğuna sığması için).Delphi derleyicisi çoğu zaman LongBool tipini normal Boolean tipi (True / False) olarak değerlendirecektir ve Windows LongBoolean değişkeninin sadece True/False değerini kullanacaktır.Kullanım amacı bu olmasa da LongBoolean değişkeni bazen diğer 3 byte'ında başka bilgiler tutabilir.
API Yardımında (genelde Return değerleri için) integer yada cardinal tiplerini "True/False" için kullanıldığı görülür.Bu demektir ki False için 0 ve True için 1 değeri atanır.(Nadirende olsa tersini görebilirsiniz , bir Boolean değişkenin 1 yada 0 için kullanılması gibi.)
---Veri Yapısı
Delphide "Record" terimi veri elemanlarının kolleksiyonları için kullanılır , C de bu kolleksiyonlara "Structure" ismi verilir.Çoğu API fonksiyonu Structure'lara Pointer kullanılır.Çoğunlukla structure tanımı için "typedef" ve "struct" kullanılır. (Yaklaşık olarak Delphideki Type ve Record).
// bir POINT için
typedef struct tagPOINT {
LONG x;
LONG y;
} POINT;
// bir RECT için
typedef struct _RECT {
LONG left;
LONG top;
LONG right;
LONG bottom;
} RECT;
Bazı API Structure'ları
MSG = TMsg
WNDCLASS = TWndClass
FINDREPLACE = TFindReplace
MENUITEMINFO = TMenuItemInfo
Çoğu Windows API veri structure tipleri için , structure veri tipi adının önüne bir "T" koyarak Delphi Record tipini elde edebilirsiniz , C de "RECT" Delphide "TRect" ; C de "POINTé Delphide "TPoint".C de "typedef" isimleri RECT ve POINT te olduğu gibi büyük harflerle yazılır , Delphide bunların başına T harfinin gelmesi gibi.
Çoğu API parametereleri sayılardır (Cardinal , Integer , Word) ve kodu daha anlaşılır yapmak için sayılara sabit isimler verilir ve , parametre olarak bu sabitler kullanıldığında sabiterin değeri gönderilir.WM_PAINT , CS_PARENTDC , IDC_ARROW ve COLOR_BTNFACE gibi önceden tanımlanmış bir çok sabit
"
vardır."_" işaretinden önceki kısım sabitin kategorisini belirtir ve"_" işaretinin devamıda kalan bölümde ise sabit değerinin ne yapacağını belirtir.Örneğin IDC_ARROW , Arrow kürsörü için Cursor ID dir.
Aşağıda bir kaç kategori belirtilmektedir
PrefixConstant type
WM_ Windows Message
WS_ Window Creation Style
CS_ Class Style
CW_ Create Window
IDC_ Cursor ID
IDI_ Icon ID
HKEY_ Registry Key
FW_ Font Weight
BS_ Window Creation Button Style
MB_ Button Message
ES_ Window Creation Edit Style
---C Text Stringler ve Özel Karakterler
Delphi de ' tek tırnağı metinlerin başlangıç ve dbitiş noktalarını belirtmek için kullanabilirsiniz (String , PChar). C de çift tırnak kullanılır.Ve Delphi de # ile karakter numarası , #9 gibi metin içinde özel karakterler kullanmak içindir.Eğerki metin içinde tırnak görüntülemek istiyorsanız tabiki çift tırnak kullanabilirsiniz.
C de metin içinde özel karakterleri göstermek için kullanılır.Örneğin metin içinde çift tırnak göstermek için " kullanılır. Metin içinde bölü işaretini göstermek için iki tane bölü işaretini arka arkaya koyarsınız.
Bazı özel kodlar
tTab
'Tek tırnak
"Çift tırnak
?Soru işareti
Bölü işareti
nYeni satır
rCarriage Return
bBackspace
---API Fonksiyonlarında PChar ve Delphi String Kullanımı
API fonksiyonları kullandığınızda ve kendi programınızın değişkenlerini parametre olarak gönderdiğinizde aklınızda bulunması gerken şey değişkenlerin kullandıkları hafıza işletim sistemi tarafından değiştirilir , programınız tarafından değil , sabit olamayan değişkenler (örneğin PChar) için hafıza tahsisi yapılmalıdır - (Cardinal , Integer , TRect tiplerinin hafıza kapladığı yer değişmez , PChar ve String içindeki metin uzunluğuna göre kapladığı hafızada değşir).Programınız PChar değişkeninin (aPCharVar:='Yeni metin') değerini değiştirirse , derleyici hafıza kullanımını değişken içindeki karakter sayısına uyacak şekilde değiştirir.Ama API lere gönderilen String değişkenler programınızın haberi olmadan değişir ve hafızayı OS ten gelen yeni metnin uzunluğuna göre değiştiremez.Bunu kod ile yapmanız gerekir ve değeri alacak kadar hafızanın ayrıldığından emin olmanız gerekir.
GetWindowsText() fonksiyonuna bakalım
procedure GetText;
var
Length: Integer;
Text: PChar;
Str1: String;
begin
Length := GetWindowTextLength(hEdit1)+1;
if Length < 2 then Exit;
GetMem(Text,Length);
GetWindowText(hEdit1,Text,Length);
Str1 := String(Text);
FreeMem(Text);
end;
hEdit1 değişkenindeki metin uzunluğu GetWindowTextLength() fonksiyonu ile döndürülür , dikkat edinki 1 arttırılarak (+1) döndürülür.Bütün null-terminated (boş sonlandırılan) (PChar) stringler#0 karakteri ile biter , bu metnin bir parçası değildir ama hafızanın bir parçasıdır bunun için değişken uzunluğunu 1 arttırmanız gerekir.GetMem() fonksiyonu Pchar tipindeki Text değişkeni için hafıza bloğunun tahsis edilmesi için kullanılır.
// çift tırnaklar metin için tek tırnak gibi kullanılır
GENERIC_READ,// okumak için aç
0,// paylaşma
NULL,// security yok
OPEN_EXISTING,// sadece var olan dosya
FILE_ATTRIBUTE_NORMAL,// normal dosya
NULL);// şablon özelliği yok
if (hFile == INVALID_HANDLE_VALUE) {
ErrorHandler("Could not open file."); // işlem hatası
}
// geçici (temporary) dosya yarat
GetTempFileName("TEMP", // geçici dosyanın dizni
"NEW",// geçici dosyanın ismi
0,// unique isim oluştur
szTempName);// isim için tampon(buffer)
hTempFile = CreateFile((LPTSTR) szTempName,// dosya adı
// (LPTSTR) szTempName yaklaşık olarak Pascaldaki Typecasting gibidir
// PChar(szTempName);
GENERIC_READ | GENERIC_WRITE, // okuma-yazma için aç
0,// paylaşma
NULL,// security yok
CREATE_ALWAYS,// var olan dosyanın üstüne yaz
FILE_ATTRIBUTE_NORMAL,// normal dosya
NULL);// şablon özelliği yok
if (hTempFile == INVALID_HANDLE_VALUE) {
ErrorHandler("Could not create temporary file.");
}
do
{
if (ReadFile(hFile, buffer, 4096,
&dwBytesRead, NULL)) {
// aşağıdaki yaklaşık Pascaldaki @ gibidir
CharUpperBuff(buffer, dwBytesRead);
WriteFile(hTempFile, buffer, dwBytesRead,
&dwBytesWritten, NULL);
}
} while (dwBytesRead == 4096);
CloseHandle(hFile);
CloseHandle(hTempFile);
// Geçici dosyayı yeni text dosyasına taşı
if (!MoveFile(szTempName, "ALLCAPS.TXT")) {
ErrorHandler("Could not move temp. file.");
}
-Delphi Karşılığı
var
hFile, hTempFile: THandle;
BytesRead, BytesWritten: Cardinal;
TempName: Array[0..MAX_PATH-1] of Char;
buffer: Array[0..4095] of Char;
hFile := CreateFile('ORIGINAL.TXT',// dosya adı
GENERIC_READ,// okuma için aç
0,// paylaşma
nil,// securityyok
OPEN_EXISTING,// var olan dosya sadece
FILE_ATTRIBUTE_NORMAL,// normal dosya
0);// şablon özelliği yok
if hFile = INVALID_HANDLE_VALUE then
begin
ErrorHandler('Could not open file.'); // işlem hatası
Exit;
end;
// Geçici (temporary) dosya yarat
GetTempFileName('TEMP', // geçici dosyanın dizni
'NEW',// geçici dosyanın ismi
0,// unique isim oluştur
TempName);// isim için tampon(buffer)
hTempFile := CreateFile(TempName,// dosya adı
GENERIC_READ or GENERIC_WRITE, // okuma-yazma için aç
0,// paylaşma
nil,// security yok
CREATE_ALWAYS,// var olan dosyanın üstüne yaz
FILE_ATTRIBUTE_NORMAL,// normal dosya
0);// şablon özelliği yok
if hTempFile = INVALID_HANDLE_VALUE then
begin
CloseHandle(hFile);
ErrorHandler('Could not create temporary file.');
Exit;
end;
Repeat
if ReadFile(hFile, buffer, SizeOf(buffer),
BytesRead, nil) then
begin
CharUpperBuff(buffer, BytesRead);
WriteFile(hTempFile, buffer, BytesRead,
BytesWritten, nil);
end;
until BytesRead <> SizeOf(buffer); // 4096
CloseHandle(hFile);
CloseHandle(hTempFile);
// Geçici dosyayı yeni text dosyasına taşı
if not MoveFile(TempName, 'ALLCAPS.TXT') then
ErrorHandler('Could not move temp. file.');
ErrorHandler() fonksiyonu hata mesajı göstermek için kullanılan bir uygulama fonksiyonudur , Windows API fonksiyonu değil.C de Pascalda olduğu gibi değişkenler var ile tanımlanmaz , genelde başlangıçta tanımlanırlar.CreateFile() fonksiyonuna bakarsanız C de 2 NULL parametresi var iken Delphide bir nil bir de 0 parametreleri vardır.
C de NULL sayısal (HANDLE) tipler için 0 açevrilir , Delphide nil sadece pointerlar için kullanılmaya başşladığından beri sayısal değerler için 0 kullanmanız gerekir , Delphide fonksiyon (C de prosedür yoktur sadece fonksiyon vardır) ile kodları bağdaştırmak için kullanılan "begin" "end;" C de "{" "}" şeklindedir.C de if ten sonra then yoktur (if te sonra then geleceği kesindir ve içindedir bunun için yazılmaz).
Delphide eşitlik karşılaştırması için "=" kulanılır (a=b) , C de ise "==" (A==B) şeklinde kullanılır.Delphi "OR" binary operatörü C de "|" , Delphi "AND" operatörü C de "&" , işlevleri aynıdır.Delphi NOT operatörü (If NOT(A) THEN ...) , C de "!" (If !(A) ...] şeklindedir.
Delphi - .....................................
Excele Veri aktarımına Örnek
Excele Database uygulammarında veri aktarımana basit bir örnek
