Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[8259] multi-tier 에서 DB 에 Wave 화일저장하기 문의
back [] 741 읽음    2002-07-31 23:49
아래의 방법으로 해보았는데 잘 안됩니다
고수님들 도움요청합니다
접속은  델파이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;

+ -

관련 글 리스트
8259 multi-tier 에서 DB 에 Wave 화일저장하기 문의 back 741 2002/07/31
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.