아래의 방법으로 해보았는데 잘 안됩니다
고수님들 도움요청합니다
접속은 델파이6.0의 soapconection,clientdataset,datasource 로 했거든요..
// DB의 table에 WAVE 파일을 통째로 저장하는 루틴
procedure TForm1.SaveWaveToDBClick(Sender: TObject);
var
F: TFileStream;
FData: pointer;
FDataSize, x: longint;
BS: TBlobStream;
begin
if FileListBox1.itemindex < 0 then
exit;
F := TFileStream.Create(expandfilename(filelistbox1.filename), fmOpenRead);
try
FData := AllocMem(F.Size);
FDataSize := F.Size;
x := F.Read(FData^, FDataSize);
table1.edit;
BS := TBlobStream.create(Table1BINA, bmWrite);
BS.Write(FData^, FDataSize);
table1.post;
table1.refresh;
BS.free;
table1.post;
FreeMem(FData, FDataSize);
finally
F.Free;
table1.refresh;
end;
end;
|