'OLD Article/PowerBuilder'에 해당되는 글 3건

CREATE TABLE TEST
(
FILENM VARCHAR2(50),
FILEB BLOB
);

/////////////////////////////////////////////////////////////
string    FileName
int       fp, i, Loops
long      FileLen
blob      Temp, ImageFile

FileName = 'C:\pic\aa.jpg'

FileLen = FileLength(FileName)
fp = FileOpen(FileName, StreamMode!)

IF FileLen > 32765 THEN
 IF Mod(FileLen, 32765) = 0 THEN
   Loops = FileLen / 32765
 ELSE
   Loops = (FileLen / 32765) + 1
 END IF
ELSE
  Loops = 1
END IF

FOR i = 1 TO Loops
  FileRead(fp, Temp)
  ImageFile = ImageFile + Temp
NEXT

insert into test (filenm)
values ('test');
commit;

 Updateblob test
    set fileb = :ImageFile  // image : 그림이 저장될 필드
  where filenm = 'test'
  using SQLCA;

IF SQLCA.SQLCode = 0 THEN
 MessageBox("","저장 성공!!")
 dw_1.Retrieve()
ELSE
 MessageBox("","저장 실패!!")
END IF

FileClose(fp)

CREATE TABLE TEST
(
FILENM VARCHAR2(50),
FILEB BLOB
);

/////////////////////////////////////////////////////////////////
// BLOB TEST No.1
//

/*
string    FileName
int       fp, i, Loops
long      FileLen
blob      Temp, ImageFile

FileName = 'C:\pic\aa.jpg'

FileLen = FileLength(FileName)
fp = FileOpen(FileName, StreamMode!)

IF FileLen > 32765 THEN
 IF Mod(FileLen, 32765) = 0 THEN
   Loops = FileLen / 32765
 ELSE
   Loops = (FileLen / 32765) + 1
 END IF
ELSE
  Loops = 1
END IF

FOR i = 1 TO Loops
  FileRead(fp, Temp)
  ImageFile = ImageFile + Temp
NEXT

insert into test (filenm)
values ('test');
commit;

 Updateblob test
    set fileb = :ImageFile  // image : 그림이 저장될 필드
  where filenm = 'test'
  using SQLCA;

IF SQLCA.SQLCode = 0 THEN
 MessageBox("","저장 성공!!")
 dw_1.Retrieve()
ELSE
 MessageBox("","저장 실패!!")
END IF

FileClose(fp)
*/
//
/////////////////////////////////////////////////////////////////