image1 e sürükle bırak ile resim ekleme

[ayhandemirtas]

Arkadaşlar merhaba. kullandığım bir programda resim ekleme işlemi yapıyorum. resim eklemede her hangi bir problem yaşamıyorum fakat işlemi biraz daha hızlı yapmak istiyorum.
Bilgisayarda kayıtlı bir resmi fare ile tutarak form da bulunan image üzerine sürükle bırak ile image de göstermek istiyorum.
Birde web sayfasında bulunan bir resmi bilgisayara kaydedip programa aktarmaktansa resmi fare ile tutup form da bulunan image üzerine sürükle bırak yöntemiyle image de göstermek istiyorum.
Teşekkürler.

[ayhandemirtas]

Arkadaşlar sağolun olayı çözdüm sizlerede lazım olur diye kodları ekliyorum.
bilgisayarda kayıtlı olan resmi sürükle bırak yapabilirsiniz.
web de olan resmi sürükleyemeyorsunuz ama kopyala ile cximage1 e past yapabilirsiniz. ardından
nereye kaydetmek istiyorsanız 5. olarak bu işlemi yapaiblirsizi,
kolay gelsin.

1. uses; ShellAPI ekleyelim
2. private
procedure WMDROPFILES(var msg : TWMDropFiles) ; message WM_DROPFILES;
ekleyelim.
3. Form1.FormCreate özelliğne
DragAcceptFiles( Handle, True );
ekleyelim.
4. forma
procedure TForm1.WMDROPFILES(var msg: TWMDropFiles) ;
const
MAXFILENAME = 255;
var
cnt, fileCount : integer;
fileName : array [0..MAXFILENAME] of char;
begin
// how many files dropped?
fileCount := DragQueryFile(msg.Drop, $FFFFFFFF, fileName, MAXFILENAME) ;

// query for file names
for cnt := 0 to -1 + fileCount do
begin
DragQueryFile(msg.Drop, cnt, fileName, MAXFILENAME) ;

//do something with the file(s)

if UpperCase(ExtractFileExt(fileName)) = '.JPG' then
begin
cxImage1.Properties.GraphicClassName:='TJPEGImage';
cxImage1.Picture.LoadFromFile(fileName);
cxImage1.Picture.SaveToFile('1.jpg'); // bu alanı istediğiniz şekilde değiştirebilirsibiz.
// Image1.Picture.SaveToFile(yolkulliyat_yol.Text +'\'+ Trim (DBEdit1.Text)+'.JPG'); /// bu özelliği kendi programımıda kullanıyorum. kesinlikle resmi veri
///tabanına eklemiyorum. klasörde saklıyorum.
end;

end;

cxImage1.Picture.SaveToFile('1.jpg');
//release memory
DragFinish(msg.Drop) ;

end;
ekleyelim.
5. cximage1 de bulunan resmin kaydedilmeside artık size kalmış. veri tavanına kaydedecekseniz. cximage değilde cxdbimage eklemeyi unutmayın.

[ayhandemirtas]

Bu arada program bitince isteyen arkadaşa programı gönderebilirim.
programın bazı özellikleri.

Şahıs kartı açarak resimli ve şahsa ait bilgileri yer aldığı bölüm,
sık kullanılan larınızı yanınızda taşımak için alan,
külliyat olarak yer alan bölümde istediğinizkadar katagori oluşturup içerisine haber yada makale veya istdiğiniz bilgiyi giriyor, varsa resim ekliyorsunuz. delphi kodbank gibi bir özellik. istenilen alanda arama yapılyır.
Hatırlatmalar bölümüde mevcut.
ayrıca kendinize ait oluşturduğunuz resim albümüde var. buda ayarlanarak bilgisayarınız istediğiniz alanında görebilirsin.z.
ve bazı diğer özellikler yervar. görüşür.

[sako]

Ben isterim