개발 참고자료

안녕하세요. 회원님들.


웹처럼 클립보드 이미지를 저장하려고 검색하다가


https://heestoryme.tistory.com/304


해당 파일로 해보니 잘 됩니다.^O^


bmp, jpg 2개가 있는데 jpg로 다운 받으시면 될것 같아요.


혹시나 문제가 된다면 글 삭제하도록 하겠습니다.




제가 한 방식은 위의 사이트에서 받은 ClibboardToImage.exe 파일을 실행만 해주면


클립보드의 이미지가 파일로 저장이 됩니다.


참고로 텍스트를 복사하고 실행하면 에러납니다.ㅠㅠ


파일로 만들어졌다면 db에 넣든, ftp로 넣든 작업해 주시고 생성한 파일 삭제하면 됩니다.




허접하지만 제가 사용한 소스 올려봅니다. 저는 db에 올렸습니다.




dw의 key 이벤트.


if key = keyV! then 일때...




screen_hdl = GetDesktopWindow()
rtn = ShellExecuteA(screen_hdl, 'open', 'C:\test\ClibboardToImage.exe', '', '', 0)

sleep(1)

lb_1.DirList("C:\test\clipboard_*.JPG",0)
ls_file = lb_1.text(1)
ls_path = "C:\test\" + ls_file

flen = FileLength(ls_path)

li_filenum = fileopen(ls_path, streammode!, Read!, LockRead!)

if li_filenum = -1 then
messagebox("","Image File Error.")
return
end if

if flen > 32765 then
if mod(flen, 32765) = 0 then
loops = flen / 32765
else
loops = (flen / 32765) + 1
end if
else
loops = 1
end if

for i = 1 to loops
bytes_read = fileread(li_filenum, b)
bug_pic = bug_pic + b
next

fileClose(li_filenum)

updateblob table set images = :bug_pic where ..... using sqlca;
update table set file_name = :ls_file where ..... using sqlca;

FileDelete(ls_path)




[출처] 클립보드 이미지 jpg파일로 저장하기 (파워빌더 커뮤니티(PBExpertClub)) |작성자 라틱스
[출처] 클립보드 이미지 jpg파일




로 저장하기 (파워빌더 커뮤니티(PBExpertClub)) |작성자 라틱스