veri tabanına dosya eklemek istiyorum pdf, jpg, docx...
aşşağıdaki kodla yapmaya çalıştım ama blob alan boş kalıyor, veri eklenmiyor. MSSql, firedac kullanıyorum.
Veri tabanına dosya nasıl ekleyebilirim...
Kod: Tümünü seç
procedure TFrmNewService.ActAddAFileToDBExecute(Sender: TObject);
var
FStream: TFileStream;
BlobStream: TStream;
begin
if ODialog.Execute then
begin
DMFiles.FTFiles.Edit;
try
BlobStream:=DMFiles.FTFiles.CreateBlobStream(DMFiles.FTFiles.FieldByName('BinaryFile'), bmWrite);
FStream:=TFileStream.Create(ODialog.FileName, fmOpenRead or fmShareDenyNone);
BlobStream.Seek(0, soFromBeginning);
BlobStream.CopyFrom(FStream, FStream.Size);
try
DMFiles.FTFilesMusteriId.Value:=1;
DMFiles.FTFilesServisId.Value:=1;
DMFiles.FTFilesBinaryFile.LoadFromStream(BlobStream);
DMFiles.FTFilesExtention.Value:='.jpg';
DMFiles.FTFilesFileSize.Value:=123.34;
DMFiles.FTFilesFileDescription.Value:='açıklama';
DMFiles.FTFilesFileName.Value:=ODialog.FileName;
DMFiles.FTFiles.Post;
except
DMFiles.FTFiles.Cancel;
end;
finally
FreeAndNil(FStream);
FreeAndNil(BlobStream);
end;
end;
end;