banjalukaforum.com

u cemu ti sad radis i koju bazu koristis?? ako koristimo query dal' ce nam onda trebati BDE instalirati na klijentu? a da koristimo ADO??? treba li njega instalirati na klijentu??
tj. mozemo li da uradimo bazu a da ne moramo nista instalirati na klijentu???????:)

Hm, mislim da DBExpress moze da se integrise u APP pogledaj malo to
JA koristim Delphi 5 i mysql odnosno oracle bazu
obe te baze moraju biti instalirane i podignute na masini, a i nije neki problem napraviti instalacionu proceduru.
Stvarno nisam radio sa dbExpress i ne mogu ti reci kako se instalira.

hmm....
bice da smo rijesili problem.....zasad nema gresaka ali ga josh moramo testirati:)

p.s.
misk0 HVALA na trudu

kako da napravimo trial verziju programa??? tj da moze da se koristi 30 dana i da poslije naravno ne moze?

kako da napravimo registraciju programa...tj. da korisnik mora da registruje program da bi ga mogao koristiti...

mozda da napravim key generator koji ce da generise broj(npr. abc-defi )tako da su zbir a+c+f djeljiv sa 3 i pri tome paran broj, a zbir b++d+i djeljiv sa 9 ili neke slicne kombinacije ) da onda u program unesem po kom pravilu da prihvata uneseni KEY
postoji li mozda nesto bolje-jednostavnije

Pa kad prvi put pokrenes program, zabiljezi negdje vrijeme tog pokretanja, registry, neki file.. i naravno koduj to na neki nacin
I onda svaki put kad otvaras program kontrolisi taj datum sa trenutnim datumom. E sad trenutni datum saznaj iz datuma nekih sistemskih datoteka, a ne iz sistemskog sata, jer je to moguce prepraviti prije startovanja programa.


Ne previshe
Znaci napravi neki algoritam za provjeru kljuca. Sto kompliovaniji to bolji, teze za razbiti. I najbolja je fora da ti taj algoritam u zavisnosti od vrijednosti kljuca vraca neki parametar koji kasnije koristis... recimo ime baze, neke tabele. Zasto ? pa ako napravis samo jedan IF THEN, kao provjera, lagano dissaemblerom moze neko da napravi patch koji ce da preskoci tu provjeru i da bez problema koristi program.

misk0 na kojim stranicama ima nesto korisno o oracle i ima li kod nas neka knjiga da se kupi...da i to krenem malo proucavati??

ovaj forum o programiranju je pravo DEAD... jel to mozda sto niko nista ne radi ili svi sve znaju???

Koristim D7 i hocu da snimim sliku iz image1 (Timage) kontrole u TFileStream.
Pokusao sam sljedece:

var
Form1: TForm1;
Stream: TFileStream;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
Stream := TFileStream.Create('c:\test.dat', fmCreate);
Image1.Picture.bitmap.SaveToStream(Stream);
Stream.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Stream := TFileStream.Create('c:\test.dat', fmOpenRead);
Image2.Picture.Bitmap.LoadFromStream(Stream);
Stream.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.picture.LoadFromFile('c:\slika.jpg');
end;

Kod se fino iskompajlira. Slika se ucita u image1 na samom pocetku. Poslije klika na button1 slika nestaje iz image1. Klikom na button2 slika se naravno ne ucita posto nista nije snimio.
Slican problem je i sljedeci:

var
Form1: TForm1;
UndoStream: TMemoryStream;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1.Picture.Bitmap do
begin
// snimi prije izmjene
SaveToStream(UndoStream);
// crta liniju
Canvas.Pen.Color:=clBlue;
Canvas.Pen.Width := 20;
Canvas.MoveTo(10,10);
Canvas.LineTo(100,100);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// idi na pocetak stream-a da procitas sliku prije izmjene
UndoStream.Seek(0, soFromBeginning);
// cita sliku iz stream-a
Image1.Picture.Bitmap.LoadFromStream(UndoStream);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
UndoStream := TMemoryStream.Create;
Image1.picture.LoadFromFile('c:\slika.jpg');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UndoStream.free;
end;

Kod bi trebao da snimi sliku prije promjene (crtanja linije), nacrta liniju (button1), a zatim klikom na button2 ucitava iz memorije staru sliku i prikazuje je u image1. Isto tako se kod iskompajlira bez greske. Klikom na button1 nestaje slika iz image1. Linija se ne iscrta, a stara neizmjenjena slika klikom na button2 se ne prikazuje u image1.
U cemu je problem?!

Uspio sam rijesiti problemcic

Imas technet.oracle.com
potrazi na netu, imas dosta linkova, kao i knjiga u PDFu
otidji na IRC(ne mogu se sjetiti naziva mreze) imas #books kanal
i mozes da skines par knjiga o ORACLE
Takodje uz samu bazu dodje brdo dokumentacije.

Pa bilo bi fino da napises kako, mozda jos nekoga interesuje

Moze misko, za tebe sve...
Kod radi OK za *.bmp fajlove. Jpeg podrska vjerovatno
nije uradjena kako valja i zato SaveToStream ne radi.

var
Form1: TForm1;
Stream: TFileStream;
ajpg:TJPEGimage;

procedure TForm1.Button1Click(Sender: TObject);
begin
Stream := TFileStream.Create('c:\test.dat', fmCreate);
aJPG.SaveToStream(Stream);
Stream.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Stream := TFileStream.Create('c:\test.dat', fmOpenRead);
aJPG.LoadFromStream(Stream);
image2.picture.Assign(aJPG);
Stream.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
aJPG:=TJPEGimage.Create;
aJPG.LoadFromFile('c:\slika.jpg');
image1.picture.Assign(aJPG);
end;

A u vezi oracle-a, gdje bih mogao da nadjem potreban software? Inace, koristim XP za sistem.