Delphi 7 Paradox Veritabanı Dosya Yükleme

[Nomercy]

Arkadaşlar Delphi 7 Paradox Veritabanı Oluşturdum.Müşteriler Tablosunda Dosya Eklemek İstiyorum.Sözleşme ve Kimlik Fotokopisini Tarayıcıdan Taratıp Eklemek İstiyorum Nasıl Yapabilirim?Örnek Verirseniz Çok İyi Olur

[freeman35]

forumda "blob" "resim" "stream" olarak aratırsan bulabilirsin. Tavsiyem resim i db ye eklemek yerine, bir klasöre resimleri at, db ye de bu path ve adı eklemen daha kolay ve sorunsuz olur. Ayrıca paradox yerine sqlite kullanman çok çok daha iyi olacaktır.
Kolay gele

[Nomercy]

forumda "blob" "resim" "stream" olarak aratırsan bulabilirsin. Tavsiyem resim i db ye eklemek yerine, bir klasöre resimleri at, db ye de bu path ve adı eklemen daha kolay ve sorunsuz olur. Ayrıca paradox yerine sqlite kullanman çok çok daha iyi olacaktır.
Kolay gele

hocam büyük ölçekte program hazırlamıyorum kendim kullanacam bu programı hesap defteri vs. olarak

resim i db ye eklemek yerine, bir klasöre resimleri at, db ye de bu path ve adı eklemen daha kolay ve sorunsuz olur

buradaki yazdığınızı nasıl yapacam örnekleyebilirmisiniz?

Hocam birde resim haricinde normal dosya eklemek istediğimde nasıl bir yol izlemem gerek?

[brs]

Database yedekleme işlemi için kullanıyorum, kendinize göre uyarlayıp, seçilen resmi kendi programınızın olduğu yere kopyalama işlemini gerçekleştirip dosya adını databasaye alabilirsiniz, bu şekilde database gereksiz yere şişmez...

Kod: Tümünü seç

procedure TForm8.CopyFilesProgramlar(Source, Destination: String);
var
  I: Integer;
  FromF, ToF: File of Byte;
  Buffer: Array [0 .. 4096] of Char;
  NumRead: integer;
  FileLength: longint;
begin
  YedekleTimer.Enabled := True;
  AssignFile(FromF, Source);
  Reset(FromF);
  AssignFile(ToF, Destination);
  Rewrite(ToF);
  FileLength := FileSize(FromF);
  with ProgressBar1 do
  begin
    Visible := True;
    Min := 0;
    Max := FileLength;
    while FileLength > 0 do
    begin
      BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
      FileLength := FileLength - NumRead;
      BlockWrite(ToF, Buffer[0], NumRead);
      Position := Position + NumRead;
    end;
    CloseFile(FromF);
    CloseFile(ToF);
    YedekButton.Caption := 'Bekleyiniz...';
  end;
end;

Kod: Tümünü seç

procedure TForm8.YedekButtonClick(Sender: TObject);
var
  Cevap: Word;
  Copy, Paste, Tarih: String;
begin
  Cevap := Application.MessageBox
    ('Yedekleme işlemi veri çokluğuna göre birkaç dakika sürebilir!', 'Onay!',
    MB_YesNo or MB_ICONQUESTION);
  begin
    try
      if Cevap = MrYes then
      begin
        Tarih := FormatDateTime('ddmmyyyy hhnnss', Now);
        Copy := DBKlasor + '\ProgramDB.db';
        Paste := YedekDB + '\' + Tarih + ' ProgramDB.db';
        CopyFilesProgramlar(Copy, Paste);
      end;
    except
    end;
  end;