Evrak tarama
"
Evrak Tarama Bugün 13:10
Merhaba arkadaşlar, Delphi7 kullanıyorum ve projemde evrak tarama işleminden
sonra onu resim dosyası olarak veritabanına atmam gerekiyor.
Ne ki tarama işleminde hangi kontrolü kullanmam gerektiğini bilemiyorum ve
o kontrolle yapılmış birkaç kod örneği lazım.Eğer yardımcı olabilirseniz
çok sevineceğim, iyi çalışmalar.
canbaba
"
Cevap:
Tarama işlemini yapan delphide hazır komponent bulunmamaktadır.
bende var olan bir dökümanda kabaca şöyle bahsediliyor:
***
Kabaca:
"32 Bit TWAIN dll dosyaları içersinde bulunan OCX kontrolünü
(Image Scan Control) win98 ve sonraki versiyonlar için delphiye
tanıtabilirsiniz.
ActiveX kontrolü olarak "Kodak Image Scan Control" şeklinde dışardan kurun.
Bu işlemden sonra TImgScan komponenti olarak kurulmuş olacaktır,
Bu nesne de ActiveX paletinde yer alacaktır.
Bu komponentin özellikleri de aşağıdaki gibidir
...
"
***
The setup program for Imaging (tool that ships with Windows > 98) installs the Image
Scan control (OCX) and the 32-bit TWAIN DLLs.
All you have to do is to import this ActiveX control in Delphi and generate
a component wrapper:
Import the ActiveX Control "Kodak Image Scan Control"
(Select Component|Import ActiveX Control...)
Now add a TImgScan Component from the Register "ActiveX" to your form.
Change the following Properties in the Object Inspector:
FileType = 3 - BMP_Bitmap
PageOption = 4 - OverwritePages
ScanTo = 2 - FileOnly
{***}
Das Setup Programm für Imaging (Ist bei Windows > 98 dabei)
installiert das Bild Scanning Control (OCX) und die 32-bit TWAIN DLLs.
Importiere das ActiveX-Control "Steuerung für Kodak-Bildscan".
(Im Menü Komponente, "ActiveX importieren" anklicken.)
Dann "Steuerung für Kodak-Bildscan..." auswählen und den
"Installieren..." Button anklicken.
Füge nun eine "TImgScan" Komponente aus dem Register "ActiveX" auf dem
Formular ein.
Ändere im Objektinspektor unter "ImgScan1" folgende Eigenschaften:
FileType = 3 - BMP_Bitmap
PageOption = 4 - OverwritePages
ScanTo = 2 - FileOnly
{***}
procedure TForm1.Button1Click(Sender: TObject);
begin
if imgScan1.ScannerAvailable then
try
imgScan1.Image := 'c:Scanner.bmp';
imgScan1.OpenScanner;
imgScan1.Zoom := 100;
imgScan1.StartScan;
Application.ProcessMessages;
finally
imgScan1.CloseScanner;
{ Show the scanned image in Image1 }
imgScan1.Picture.LoadFromFile(Image1.Image);
end;
end;
not: Bunu test etmedim, denemedim. Umarım işine kısmen de olsa yarar....
saygılarımla_
neoturk [ xxnt03@lycos.co.uk ]
Delphi - .....................................
neoturk: ILLEGAL - "Kaydetme hatası lütfen yardımcı olur musunuz"
"
// ARKADAŞLAR FOMMU AÇIYORUM. VE BİLGİLERİ GİRİP KAYIT YAPIYORUM
// NEDEN SE HATA VERİYOR .....
// TABLEYİ BAŞKA NASIL AÇIP NASIL KAYIT YAPTIRABİLİRİM
// YARDIMCI OLABİLİRSENİZ SEVİNİRİM..
procedure TForm14.BitBtn2Click(Sender: TObject);
begin
Close; // Formu Kapat...
end;
procedure TForm14.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.close;
Form3.Enabled:=True;
Table1.open;
Table1.append;
end;
procedure TForm14.FormActivate(Sender: TObject);
begin
table1.close;
table1.open;
table1.append;
Dbedit2.SetFocus;
end;
procedure TForm14.BitBtn1Click(Sender: TObject);
begin
Table1.Post;
Showmessage(Label13.caption +(' "')+('Nolu Müşteri'));
Form14.Close;
end;
procedure TForm14.FormCreate(Sender: TObject);
begin
table1.close;
table1.open;
table1.append;
end;
procedure TForm14.FormShow(Sender: TObject);
begin
end;
procedure TForm14.DBEdit2Exit(Sender: TObject);
begin
SpeedButton1.Click;
DBEdit1.text:=Label32.Caption;
end;
end.
sahinmaster
"
cevap:
Öncelikle buraya soru sorulmamasını,
bilakis forum bölümüne sorulması konusunda çoğunluk olarak
karara vardık sanıyorum.
Çünkü,
HER SORUYA KARŞILIK VERİLEN CEVAPLAR NEDENİYLE,
GEREKSİZ YERE DOUBLE ŞİŞMEKTEDİR.
Soru sorulan kodun aynısına tekabül ( veya sorusu gösterilmeden )
neyin ne olduğu karman çorman oluyor...
sorunuzu lütfen FORUM bölümüne sorunuz,
forumları takip ediyorum, cevabınızı burada vereceğim.
Kurallara lütfen riayet ediniz.
Buraya cevabı yazılmış ( soru ile birlikte ) olan kodlar eklenecektir.
Tekrar ediyorum, sorularınızı lütfen forum alanına sorunuz
Forum Adresi:
"http://...................................../Forums.aspx?Forums=1"
Sorularınızı ben görüyorum ve okuyorum arkadaşlar,
Çift-çift soru ve kopuk cevaplar yazmayın, Lütfen.
saygılarımla_
neoturk [ xxnt03@lycos.co.uk ]
Delphi - .....................................
neoturk: ILLEGAL - "Kaydetme hatası lütfen yardımcı olur musunuz"
"
// ARKADAŞLAR FOMMU AÇIYORUM. VE BİLGİLERİ GİRİP KAYIT YAPIYORUM
// NEDEN SE HATA VERİYOR .....
// TABLEYİ BAŞKA NASIL AÇIP NASIL KAYIT YAPTIRABİLİRİM
// YARDIMCI OLABİLİRSENİZ SEVİNİRİM..
procedure TForm14.BitBtn2Click(Sender: TObject);
begin
Close; // Formu Kapat...
end;
procedure TForm14.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.close;
Form3.Enabled:=True;
Table1.open;
Table1.append;
end;
procedure TForm14.FormActivate(Sender: TObject);
begin
table1.close;
table1.open;
table1.append;
Dbedit2.SetFocus;
end;
procedure TForm14.BitBtn1Click(Sender: TObject);
begin
Table1.Post;
Showmessage(Label13.caption +(' "')+('Nolu Müşteri'));
Form14.Close;
end;
procedure TForm14.FormCreate(Sender: TObject);
begin
table1.close;
table1.open;
table1.append;
end;
procedure TForm14.FormShow(Sender: TObject);
begin
end;
procedure TForm14.DBEdit2Exit(Sender: TObject);
begin
SpeedButton1.Click;
DBEdit1.text:=Label32.Caption;
end;
end.
sahinmaster
"
cevap:
Öncelikle buraya soru sorulmamasını,
bilakis forum bölümüne sorulması konusunda çoğunluk olarak
karara vardık sanıyorum.
Çünkü,
HER SORUYA KARŞILIK VERİLEN CEVAPLAR NEDENİYLE,
GEREKSİZ YERE DOUBLE ŞİŞMEKTEDİR.
Soru sorulan kodun aynısına tekabül ( veya sorusu gösterilmeden )
neyin ne olduğu karman çorman oluyor...
sorunuzu lütfen FORUM bölümüne sorunuz,
forumları takip ediyorum, cevabınızı burada vereceğim.
Kurallara lütfen riayet ediniz.
Buraya cevabı yazılmış ( soru ile birlikte ) olan kodlar eklenecektir.
Tekrar ediyorum, sorularınızı lütfen forum alanına sorunuz
Forum Adresi:
"http://...................................../Forums.aspx?Forums=1"
Sorularınızı ben görüyorum ve okuyorum arkadaşlar,
Çift-çift soru ve kopuk cevaplar yazmayın, Lütfen.
saygılarımla_
neoturk [ xxnt03@lycos.co.uk ]
Delphi - .....................................
neoturk: Forum - "Programınızda font kullanımı hakkında"
"
font ekleme hakkında.......... 21 Kasım 2005 22:38
mrh, arkadaşlar kod bankasındaki fontu yüklemeden kullanma kodları hakkında
bilgi almak istiyordum.
procedure TForm1.FormCreate(Sender: TObject);
begin
AddFontResource('c:programimFUENTE.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
bu kodu aynı şekilde kullanıyorum, amma bir sorun var, programı ilk
çalıştırdığında x.ttf font aktif
olmuyor, kapatıp ikinci kez çalıştırdığında aktif oluyor.
bu font'u program ilk çalıştığında nasıl aktif hale getirebilirim.
herkese iyi çalışmalar........
fak
"
cevap:
evet, yukarıdaki kod ilk çalıştırılmasında ilgili fontu aktifleştirmez.
Çünkü HWND_BROADCAST parametresi gönderilmiştir,
bunun anlamı da şudur, "Tüm sisteme bunu bildir" ama aktifleştirmez,
aktif halinin görülmesi için hemen ardından tekrar programın çalıştırılması
gerekmektedir.
Bunu da "winexec(application.exename,1)" şeklinde programın kendisini
yeniden çalıştırılması mantığıyla düzeltebilirsin.
Tekrar tekrar programın kendisini çalıştırılmaması için,
buna "tek-çift" şeklinde bir sayaç yapısı koyabilirsin.
Böyle bir mantığı kurup programına kodlayabilirsin.
Amacımız programımızı 2 kere üst üste çalıştırmak,
-ilk açılışta fontun yüklenmesini sağlamak,
-fontu sisteme tanıtmak,
-programı kapatmak,
-hemen peşinden programı tekrar çalıştırmak
bu işlemi kodlarken sonsuz döngüye girmemesine özen gösterilmeli,
aksi takdirde program sonsuza kadar kendisini sürekli re-start olarak
çalıştırır.
bu yapıyı engellemek için de "ini" dosya yapısı kullanabilirsin.
( bakınız: ini dosyası kullanımı ve parametrelerin saklanması ilgili kodlar )
ini dosyasının mantığı da şu şekilde olmalıdır,
-ini dosyasındaki "font_installed" parametresini oku,
-eğer false ise değerini true olarak değiştir ve ini dosyasına yaz,
winexec ile kendini bi daha çalıştır
-eğer parametre true ise değerini false olarak değiştir ve ini dosyasına yaz,
kendini bi daha çalıştırMA. ( font kurulu vaziyette olduğu için )
bu yöntemle çift tıklanan bir programını 2 kere gerekli olan yerlerde
form create aşamasında RUN ettirebilirsin. ve kullanıcının da ruhu duymaz.
sorununu bu şekilde giderebileceğini düşünüyorum, ben bu yöntemi seçerdim..
saygılarımla_
neoturk [ xxnt03@lycos.co.uk ]
Delphi - .....................................
neoturk: Forum - "Programınızda font kullanımı hakkında"
"
font ekleme hakkında.......... 21 Kasım 2005 22:38
mrh, arkadaşlar kod bankasındaki fontu yüklemeden kullanma kodları hakkında
bilgi almak istiyordum.
procedure TForm1.FormCreate(Sender: TObject);
begin
AddFontResource('c:programimFUENTE.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
bu kodu aynı şekilde kullanıyorum, amma bir sorun var, programı ilk
çalıştırdığında x.ttf font aktif
olmuyor, kapatıp ikinci kez çalıştırdığında aktif oluyor.
bu font'u program ilk çalıştığında nasıl aktif hale getirebilirim.
herkese iyi çalışmalar........
fak
"
cevap:
evet, yukarıdaki kod ilk çalıştırılmasında ilgili fontu aktifleştirmez.
Çünkü HWND_BROADCAST parametresi gönderilmiştir,
bunun anlamı da şudur, "Tüm sisteme bunu bildir" ama aktifleştirmez,
aktif halinin görülmesi için hemen ardından tekrar programın çalıştırılması
gerekmektedir.
Bunu da "winexec(application.exename,1)" şeklinde programın kendisini
yeniden çalıştırılması mantığıyla düzeltebilirsin.
Tekrar tekrar programın kendisini çalıştırılmaması için,
buna "tek-çift" şeklinde bir sayaç yapısı koyabilirsin.
Böyle bir mantığı kurup programına kodlayabilirsin.
Amacımız programımızı 2 kere üst üste çalıştırmak,
-ilk açılışta fontun yüklenmesini sağlamak,
-fontu sisteme tanıtmak,
-programı kapatmak,
-hemen peşinden programı tekrar çalıştırmak
bu işlemi kodlarken sonsuz döngüye girmemesine özen gösterilmeli,
aksi takdirde program sonsuza kadar kendisini sürekli re-start olarak
çalıştırır.
bu yapıyı engellemek için de "ini" dosya yapısı kullanabilirsin.
( bakınız: ini dosyası kullanımı ve parametrelerin saklanması ilgili kodlar )
ini dosyasının mantığı da şu şekilde olmalıdır,
-ini dosyasındaki "font_installed" parametresini oku,
-eğer false ise değerini true olarak değiştir ve ini dosyasına yaz,
winexec ile kendini bi daha çalıştır
-eğer parametre true ise değerini false olarak değiştir ve ini dosyasına yaz,
kendini bi daha çalıştırMA. ( font kurulu vaziyette olduğu için )
bu yöntemle çift tıklanan bir programını 2 kere gerekli olan yerlerde
form create aşamasında RUN ettirebilirsin. ve kullanıcının da ruhu duymaz.
sorununu bu şekilde giderebileceğini düşünüyorum, ben bu yöntemi seçerdim..
saygılarımla_
neoturk [ xxnt03@lycos.co.uk ]
Delphi - .....................................
neoturk: Forum - "Dosya adının içinde kabul görmeyen karakterlerin olup olmadığını denetlemek"
"
* . , / - + GİBİ İŞARETLER Bugün 10:04
herkese selam öncelikle benim sorum kullanıcının girdiği veriye göre dosya ve
klasör açtırıyorum ama bilindiği gibi windows dosya adında bulunan
nokta virgül v.b. gibi karakterler olunca açmıyor dosyayıo şimdi bana gerekli
olan windowsun dosya adında kabul etmediği karakterlerin ascII kodaları
bu konuda yardımcı olursanız sevinirim herkese iyi günler...
LeWo
"
cevab:
merhaba, çözüm olarak teorik şu kodu yazıyorum, test etmedim.
function gecerlimi(dosyaadi:string):boolean;
const istenmeyenkarakterler='+%&!^&/'+#39; //tirnak dahil
var m:integer;c:char;sonuc:boolean;
begin
sonuc:=true;
for m:=1 to length(dosyaadi) do
begin
c:=dosyaadi[m];
if pos(c,istenmeyenkarakterler)>0 then
begin
sonuc:=false;
break;
end;
end;
result:=sonuc;
end;
kullanimi:
if gecerlimi('c:windowsdeneme&%23.txt') then
showmessage('Geçerli dosya adı') else showmessage('Geçersiz dosya adı');
//geçersiz dosya adı olarak görür
if gecerlimi('c:windowsdeneme555.txt') then
showmessage('Geçerli dosya adı') else showmessage('Geçersiz dosya adı');
//geçerli dosya adı olarak görür
yukarıdaki kod "in" declarasyonu ile daha kısa şekilde yazılabilir.
o da çözümün ikinci varyantı...
ok.
saygılarımla_
neoturk [ xxnt03@lycos.co.uk ]
Delphi - .....................................
neoturk: Forum - "Dosya adının içinde kabul görmeyen karakterlerin olup olmadığını denetlemek"
"
* . , / - + GİBİ İŞARETLER Bugün 10:04
herkese selam öncelikle benim sorum kullanıcının girdiği veriye göre dosya ve
klasör açtırıyorum ama bilindiği gibi windows dosya adında bulunan
nokta virgül v.b. gibi karakterler olunca açmıyor dosyayıo şimdi bana gerekli
olan windowsun dosya adında kabul etmediği karakterlerin ascII kodaları
bu konuda yardımcı olursanız sevinirim herkese iyi günler...
LeWo
"
cevab:
merhaba, çözüm olarak teorik şu kodu yazıyorum, test etmedim.
function gecerlimi(dosyaadi:string):boolean;
const istenmeyenkarakterler='+%&!^&/'+#39; //tirnak dahil
var m:integer;c:char;sonuc:boolean;
begin
sonuc:=true;
for m:=1 to length(dosyaadi) do
begin
c:=dosyaadi[m];
if pos(c,istenmeyenkarakterler)>0 then
begin
sonuc:=false;
break;
end;
end;
result:=sonuc;
end;
kullanimi:
if gecerlimi('c:windowsdeneme&%23.txt') then
showmessage('Geçerli dosya adı') else showmessage('Geçersiz dosya adı');
//geçersiz dosya adı olarak görür
if gecerlimi('c:windowsdeneme555.txt') then
showmessage('Geçerli dosya adı') else showmessage('Geçersiz dosya adı');
//geçerli dosya adı olarak görür
yukarıdaki kod "in" declarasyonu ile daha kısa şekilde yazılabilir.
o da çözümün ikinci varyantı...
ok.
saygılarımla_
neoturk [ xxnt03@lycos.co.uk ]
Delphi - .....................................
