Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
-
erdogan_ozkaya
- Üye
- Mesajlar: 839
- Kayıt: 03 Eki 2007 02:00
Mesaj
gönderen erdogan_ozkaya »
Arkadaşlar Aşağıdaki kod ile kayıt yapıyorum ama program nerden çalışıyorsa o dizene kayıt yapıyor "C:\TEMP\" klasörüne nasıl kayıt yapabilirim ?
teşekkürler
Kod: Tümünü seç
var
BlobStream: TStream;
FileStream: TStream;
begin
dlgSaveDOSYA_KAYIT.FileName:= editDOSYA_ADI.Text;
dlgSaveDOSYA_KAYIT.InitialDir:= 'C:\';
// if QRYDOSYALAR.Active and dlgSaveDOSYA_KAYDET.Execute then
begin
BlobStream := QRYDOSYALAR.CreateBlobStream(QRYDOSYALAR.FieldByName('DOSYA'), bmRead);
try
FileStream := TFileStream.Create(dlgSaveDOSYA_KAYIT.FileName, fmCreate);
try
FileStream.CopyFrom(BlobStream, BlobStream.Size);
finally
FileStream.Free;
end;
finally
BlobStream.Free;
end;
end;
end;
-
erdogan_ozkaya
- Üye
- Mesajlar: 839
- Kayıt: 03 Eki 2007 02:00
Mesaj
gönderen erdogan_ozkaya »
begin
FileStream := TFileStream.Create('C:\TEMP\'+editDOSYA_ADI.Text,fmCreate);
BlobStream := QRYDOSYALAR.CreateBlobStream(QRYDOSYALAR.FieldByName('DOSYA'), bmRead);
FileStream.CopyFrom(BlobStream,BlobStream.Size);
BlobStream.Free;
FileStream.Free;
end;
-
dkadir
- Üye
- Mesajlar: 40
- Kayıt: 04 Oca 2014 06:44
Mesaj
gönderen dkadir »
o kadar koda gerek yok ki
SaveDialog'un Property kısmında InitialDir diye bir kısım var
oraya C:\Temp yazarsan açılışı oradan başlıyor zaten