savetofile

[Misafir]

image1.Picture.SaveToFile('c:\deger.bmp');

scainerden tarama yapıyorum.....

her bir resmi taradıgında belirttiğim klasore..işte image1....image2... image(x) gibi bi degerle isim versin...yada işte image(datetime) falan gibi oanki tarih ve zamanı image nin sonuna eklesin...

sıralı olarak isim versin yani...

bunu nasıl yapabilirim..

teşekkürler...

[fduman]

bkz viewtopic.php?t=6992

[Misafir]

function TForm1.DosyaAdi: String;
const
Uzunluk = 5;
var
i : integer;
S : String;
begin
repeat
S := '';
for i := 1 to Uzunluk do
S := S + Chr(Random(26)+65) + Chr(Random(26)+97);
until not FileExists(S);
Result := S + '.bmp';
end;


bu nasıl bir fonksiyondur yaa

image1.picture.savetofile içinde nasıl kullanırım...

[fduman]

mege'nin yanıtı işinizi görür.

[Misafir]

fonksiyon isminde hata veriyorrrrrr

[fduman]

Nasıl bir hata veriyorrrr?

[Misafir]

bu fonksiyonu bi denermisin...


fonk isminde sorun var...onu halletim bu sefer decodedatetime da hata
veriyor...

[fduman]

Hatayı buraya yazabilir misin?

[Misafir]

function TForm1.DosyaAdi: String;

bu satırda hata var...

[Error] Unit1.pas(36): Undeclared identifier: 'DosyaAdi'
[Error] Unit1.pas(48): Undeclared identifier: 'Result'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

hata bu...

ayrıca fonksiyon ismini düzenlediğim zaman

şunu yapıyorum...

function dosyadi(dosyadi:string):string;

yapıyorum fonksiyon adını...

sonra

image1.picture.savetıfile(dosyadi);

diyorum olmuyor...

[Error] Unit1.pas(76): Not enough actual parameters
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'


biliyorum hata var...büyük ihtimalle yanlış kullanıyorum...

[fduman]

Fonksiyona parametreyi eksik geçmişsin diyor. Sen fonksiyonu:

function dosyadi(dosyadi:string):string;

haline getirmişsin ancak kullanırken sadece dosyaadi diyorsun. dosyaadi('bilmemne') şeklinde olması gerekmez mi?

[Misafir]

fonksiyon çalışıyor..

ancak orayı bir türlü oturtamadım...

image1.picture.savetofile('c:\isim.bmp');

boyle yapınca c ye kaydediyor..

image1.picture.savetofile('c:\(isim(resim)).bmp');

gibi bişi mi yapmak lazım....sacma ama boyle bişi olacak iş onu çözemiyorum....

dediğiniz gibi de yaptım olmadı

[fduman]

savetofile('c:\' + isim('deneme') + '.BMP')

[Misafir]

çok saolun oldu...ancakkk

absürt birbirinden bagımsız isimler veriyor...

bunu düzenli isimlere dönüştürebilirmiyiz.. ?

numara mesela

ben deniyeceğim bi yandan..

yardımcı olmak için diyebileceğiniz bişile varsa teşekkür ederim

[fduman]

"Now" func. dan dönen değeri "DateTimeToStr" ile string 'e çevirip, istediğin dosya adının sonuna + yapabilirsin mesela.

[Misafir]

S := S + Chr(Random(26)+65) + Chr(Random(26)+97);


bu satırda oluşturuyor ismi..

ve anladıgımız üzere de ramdom çok salak isimler veriyor..

burada bişi yapmak lazım diye düşünüyorum..

acaba tarih değilde ne olabilir ?