Resim Yolunu almak.

[RADCoder]

Merhaba arkadaşlar, Yapmaya çalıştığım bir işlemde sıkıntı çekiyorum.
Forma eklediyim ActionList componentinin içine bir TakePhotoFromLibraryAction1 ekledim..
Bir tane İmage1 komponenti ekledim ve şu kodlarlarla:

Kod: Tümünü seç

procedure TForm1.TakePhotoFromLibraryAction1DidFinishTaking(Image: TBitmap);
begin
Image1.Bitmap.Assign(Image);
end;                                         // Embarcadero örneklerinden

şeklinde telefonda bulunan resim dosyalarına erişip,
seçtiyim resimlerden her hangi birini İmage bileşeninde göstere biliyorum.
Yapamadğım kısım seçilen resim dosyasının yolunu almak. Bunun için TPath.GetDocument olayınımı araştırmama gerek?
Eğer farklı birşeyse neyi araştırıp bula bilirim..?

Önceden teşekkür ederim.

[AliZairov]

Günaydın.

Kod: Tümünü seç

var
  fullFileName : string;

begin
  fullFileName := 'C:\images\1.jpg';

  ShowMessage('Drive = '+ExtractFileDrive (fullFileName));
  ShowMessage('Dir   = '+ExtractFileDir   (fullFileName));
  ShowMessage('Path  = '+ExtractFilePath  (fullFileName));
  ShowMessage('Name  = '+ExtractFileName  (fullFileName));
  ShowMessage('Ext   = '+ExtractFileExt   (fullFileName));
end;

[RADCoder]

Zairov Cevabın için teşekkürler ama her halde yukardaki soruyu anlamadınız..
Ben resim yolunu belirtmiyorum, resim yolunu belirtirseydim her halde almış olurdum.
Dikkat ederseniz burdaki resimi alıp İmage nesnesinde gösteren TakePhotoFromLibraryAction1 öğesi..
Nerden aldığını bulmak istiyorum. Vermiş olduğunuz örnek ise, mevcut bir dosya yolunu gerekli kısımlarını almak içindir..
Tekrar teşekkürler..

[mrmarman]

Merhaba.

- TBitmap tipindeki parametreyle gelen resmin kaynak dosya yolunu ancak TakePhotoFromLibraryAction1 action'unda -o da size imkan veriyorsa- bir global değişkene atayıp elde edebilirsiniz. Çünkü TBitmap safiyane resmin kendisi olduğundan bir dosya ile ilişkisi yoktur.

- Mobil bir application olduğunda göre çekilen fotoların tampon bir bellekte bulunması dolayısı ile fiziksel olarak son kullanıcının ulaşabileceği bir yerde olmasına pek ihtimal vermiyorum.

- Size tek önerim olabilir, elde edilen TBitmap tipindeki resmi bizzat sizin bir yere kaydederek bunun takibini yapmanız. Fazla zaman da almaz. Hep aynı ismi kullanırsanız (geçici bir resim olduğunu varsayarak yazıyorum) yer kaybınız da olmaz.

[RADCoder]

Evet Muharrem abi, aynen bende öyle yaptım. İmage1.Bitmap.SaveToFile(TPah.GetDocumentPath+'/1.jpg'); şeklinde kayıt etdim.
İşim bitdikten sonra FileExistis komutu ile kontrol edip siliyorum..

Teşekkürler..