Merhaba arkadaşlar ben Mersin üniversitesi bilgisayar programcılığı 2. sınıf öğrencisiyim.
Bu dönem sonuna teslim etmem gereken benim için çok önemli bir projem var buda biraz benim sınıfı geçmem bağlı olacak bir aydır tek bir yol bile kat edemedim çok arkadaşım yardımcı olmak istedi ama bir türlü başaramadık en sonun da bir arkadaşımın tavsiyesi ile bir delphi formuna bu projemi sormamı tavsiye ettiler. İnşallah siz bana yardımcı olabilirsiniz.
Proje Konusu : Windows Üzerindeki Printerin Günlük Çıktı sayısının raporlanması:
Bir program yapmalıyım ve bu program windows da tanımlı printerin çıktılarını Bir veri tabanında tutmalı program gönderilen her çıktıyı veritabanına kaydedecek ve hata verenleride ayrıca kayıt yapacak Çok arkadaşım la ve kitablardan araştırdık ama bir türlü bir çözüm yolu bulamadık.
Printer Projem
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Sana birkaç link vereyim.
http://www.jazarsoft.com/codebook/view.php?id=255
* Bu siteye üye olmalısın. Ücretsiz.
http://www.delphi3000.com/articles/arti ... rint%20job
Konuyla ilgili birşeyler bulursam gene gönderirim.
http://www.jazarsoft.com/codebook/view.php?id=255
* Bu siteye üye olmalısın. Ücretsiz.
http://www.delphi3000.com/articles/arti ... rint%20job
Konuyla ilgili birşeyler bulursam gene gönderirim.
Bu linkler
Ama bu siteler ingilizce çok bişe anlayamadım Bu sitelerdeki bilgileri bana açıklayabilecek birisi varmı delphi dede çok iyi sayılmam biraz vt programlama biliyorum oda okulda öğrendiğim kadarıyla.
Lütfen yardımcı Olun.
Lütfen yardımcı Olun.
http://www.downloadarsivi.com bu adreste webçeviri diye bir program var onu indir tüm web sayfasını türkçeye çevirirsin.kolay gelsin.
***********************************
Kamil odur ki; koya dünyada bir eser,
Eseri olmayanın, yerinde yeller eser.
***********************************
Kamil odur ki; koya dünyada bir eser,
Eseri olmayanın, yerinde yeller eser.
***********************************
http://cc.borland.com/beta/Item.aspx?id=20307
Bu adreste tam aradığın yazılım kaynak kodu ile var. bdn'ye üye olman gerekebilir. Bu da ücretsiz.
Bu adreste tam aradığın yazılım kaynak kodu ile var. bdn'ye üye olman gerekebilir. Bu da ücretsiz.
coderlord Herşey için Çok teşekkür ederim
Senden Son Birşey daha isteyeceğim.
Bana programın aşağıdaki kodlarının ne anlama geldiği ve çalışma mantığını yanlarına küçük notlar halinde yazarmısın.
Bunu istememin nedeni Hocamız bunu bana soracaktır ben de hazırlıklı olmalıyım .
Çok teşekkür ederim Gerçekten beni büyük bir dertten kurtardın.
unit SpyPrinterMainU;
{$I JEDI.INC}
interface
uses
Windows, Messages, SysUtils,
{$IFDEF DELPHI6_UP} Variants, {$ENDIF}
Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, PBPrintersMonitorU;
Type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
private
FMonitor: TPBPrintersMonitor;
Procedure JobNotification( const jobinfo: TPBJobInformation );
public
end;
var
Form1: TForm1;
implementation
uses typinfo, printers;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
FMonitor:= TPBPrintersMonitor.Create( self );
FMonitor.OnNewJob := JobNotification;
FMonitor.OnJobChange := JobNotification;
FMonitor.OnJobComplete := JobNotification;
FMonitor.Active := true;
Align := alTop;
end;
procedure TForm1.JobNotification(const jobinfo: TPBJobInformation);
const
orientations: Array [TPrinterOrientation] Of String =
('Portrait', 'Landscape');
var
item: TListitem;
begin
listview1.Items.BeginUpdate;
Try
item:= listview1.Items.Add;
item.Caption := FormatDateTime('yyyy-mm-dd', Date );
item.SubItems.Add( FormatDateTime( 'hh:nn:ss:zzz', Time ));
item.SubItems.Add( GetEnumName( Typeinfo( TPBJobStatus), Ord( jobinfo.Status)));
item.SubItems.Add( IntToStr( jobinfo.JobID ));
item.SubItems.Add( jobinfo.Computer );
item.SubItems.Add( jobinfo.User );
item.SubItems.Add( jobinfo.PrinterName );
item.SubItems.Add( jobinfo.Document );
item.SubItems.Add( IntToStr( jobinfo.Pages ));
item.SubItems.Add( IntToStr( jobinfo.BytesPrinted ));
item.SubItems.Add( IntToStr( jobinfo.TotalPages ));
item.SubItems.Add( IntToStr( jobinfo.TotalBytes ));
item.Subitems.Add( IntToStr( jobinfo.Copies ));
item.Subitems.Add( orientations[ jobinfo.Orientation ]
);
Finally
listview1.Items.EndUpdate;
End; { Finally }
end;
Bana programın aşağıdaki kodlarının ne anlama geldiği ve çalışma mantığını yanlarına küçük notlar halinde yazarmısın.
Bunu istememin nedeni Hocamız bunu bana soracaktır ben de hazırlıklı olmalıyım .
Çok teşekkür ederim Gerçekten beni büyük bir dertten kurtardın.
unit SpyPrinterMainU;
{$I JEDI.INC}
interface
uses
Windows, Messages, SysUtils,
{$IFDEF DELPHI6_UP} Variants, {$ENDIF}
Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, PBPrintersMonitorU;
Type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
private
FMonitor: TPBPrintersMonitor;
Procedure JobNotification( const jobinfo: TPBJobInformation );
public
end;
var
Form1: TForm1;
implementation
uses typinfo, printers;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
FMonitor:= TPBPrintersMonitor.Create( self );
FMonitor.OnNewJob := JobNotification;
FMonitor.OnJobChange := JobNotification;
FMonitor.OnJobComplete := JobNotification;
FMonitor.Active := true;
Align := alTop;
end;
procedure TForm1.JobNotification(const jobinfo: TPBJobInformation);
const
orientations: Array [TPrinterOrientation] Of String =
('Portrait', 'Landscape');
var
item: TListitem;
begin
listview1.Items.BeginUpdate;
Try
item:= listview1.Items.Add;
item.Caption := FormatDateTime('yyyy-mm-dd', Date );
item.SubItems.Add( FormatDateTime( 'hh:nn:ss:zzz', Time ));
item.SubItems.Add( GetEnumName( Typeinfo( TPBJobStatus), Ord( jobinfo.Status)));
item.SubItems.Add( IntToStr( jobinfo.JobID ));
item.SubItems.Add( jobinfo.Computer );
item.SubItems.Add( jobinfo.User );
item.SubItems.Add( jobinfo.PrinterName );
item.SubItems.Add( jobinfo.Document );
item.SubItems.Add( IntToStr( jobinfo.Pages ));
item.SubItems.Add( IntToStr( jobinfo.BytesPrinted ));
item.SubItems.Add( IntToStr( jobinfo.TotalPages ));
item.SubItems.Add( IntToStr( jobinfo.TotalBytes ));
item.Subitems.Add( IntToStr( jobinfo.Copies ));
item.Subitems.Add( orientations[ jobinfo.Orientation ]
);
Finally
listview1.Items.EndUpdate;
End; { Finally }
end;
Ben Formu inceledim Çok güzel insanlara yardımcı Oluyorsunuz ama bana bu kodların kullanımını sormakta çok haklıyım ben projeyi bu şekildede verebilirim ama öğrenmek istedim kodlar nerelerde ve ne amaçla nasıl kullanılıyor ben bunu sordum yani aslında en son sorduğum benim öğrenmem açısından iyi olacaktı bu form kurallarındada öğretmeye yönelik yanılmıyorsam.
Ben de kodlarım ne anlama geldiğini öğrenmek istedim.
Yinede yardımlarınız için çok teşekkürler.
Ben de kodlarım ne anlama geldiğini öğrenmek istedim.
Yinede yardımlarınız için çok teşekkürler.
Beni yanlış anlamayın da bilmiyorum okulda size bunları göstermeden nasıl böyle ödevler istiyorlar anlamıyorum. Çok şanslısın (bence şans değil talihsizliktir) kodları bulmuşsun ama analiz edemiyorsun, analiz ettin bi veritabanına kayıt edip istenildiğinde listeletmekten aciz durumdayız. Size suç bulmuyorum, ülkemizdeki eğitim düzeyi gerçekten düşük...
Kolay gelsin...
(sanırım başımı belaya soktum...)
Kolay gelsin...
(sanırım başımı belaya soktum...)
viewtopic.php?t=8907&highlight=listview
viewtopic.php?t=706&highlight=listview
sadece bunlar birkaçı site hazine. arama yaptırırsanız yeni bir proje yapacak kadar bilgiye ulaşırsınız. deneyin yapamadığınız yerde veya hata aldığınız yerde tekrar sourn.
ben şuan bi işim yok boş boş duruyorum ve size veya bi başkasına yazabiliyorum ama diğer arkadaşlar şu an konsantre olmuş harıl harıl ekmek parası için kodların içinde kaybolmuş gitmişler. ortalığı kimilerinde duman götürüyor.
kolay gelsin
viewtopic.php?t=706&highlight=listview
sadece bunlar birkaçı site hazine. arama yaptırırsanız yeni bir proje yapacak kadar bilgiye ulaşırsınız. deneyin yapamadığınız yerde veya hata aldığınız yerde tekrar sourn.
ben şuan bi işim yok boş boş duruyorum ve size veya bi başkasına yazabiliyorum ama diğer arkadaşlar şu an konsantre olmuş harıl harıl ekmek parası için kodların içinde kaybolmuş gitmişler. ortalığı kimilerinde duman götürüyor.
kolay gelsin
Şefkat-u Merhamette Güneş Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.
Biz 2 yıl boyunca o arkadaşımızdan bu arkadaşımızdan bişeyler öğrenerek bişeyler yapmaya çalıştık emin olun hocalarımızdan birtanesi burdaki arkadaşlar kadar bilgi sahibi olsa biz daha çok şey öğrenebilirdik.
Bilmiyorum bu kimin suçu ama ben sırf ödevimi anlayabilmek için internet cafede saatlerce araştırma yapıyorum.
Belkide erkekler şanslı onlar daha çok bu tip ortamlara katılabiliyorlar mesela formu incelerken eğitimler felan çok güzel şeyler var ama benim için çok zor şeyler gibi.
Ve emin olun arkadaşlar Okumak maddi olarakda çok zor yani benim internet cafede geçirdiğim saatlerde bana oldukça maddi sorun çıkartıyor belkide o nedenle tam incelemeden arka arkaya sorular soruyorm.
Yinede Allah hepinizden razı olsun.
Bilmiyorum bu kimin suçu ama ben sırf ödevimi anlayabilmek için internet cafede saatlerce araştırma yapıyorum.
Belkide erkekler şanslı onlar daha çok bu tip ortamlara katılabiliyorlar mesela formu incelerken eğitimler felan çok güzel şeyler var ama benim için çok zor şeyler gibi.
Ve emin olun arkadaşlar Okumak maddi olarakda çok zor yani benim internet cafede geçirdiğim saatlerde bana oldukça maddi sorun çıkartıyor belkide o nedenle tam incelemeden arka arkaya sorular soruyorm.
Yinede Allah hepinizden razı olsun.
