My Name is Kay....

DIY , 먹방 , 개발 , 육아 , 여행 좋아합니다.
AdBlock 사용시 화면이 정상적으로 노출되지 않습니다.
포스팅 관련 문의 및 개발 문의는 Email : wkzkfmxksi@gmail.com

추가 포스팅이 이뤄지지 않는 블로그입니다. 문의는 wkzkfmxksi@gmail.com 으로 연락주세요.
kay
조회 수 1719 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄 첨부
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄 첨부


이미지 사이즈를 구해주는 컴포넌트 입니다.


유료 업로드 컴포넌트등을 이용하면 사이즈를 구해주지만..

무료 업로드 컴포넌트 사용시에 필요한 경우가 있어서... 찾다가 알게되었습니다.


32비트 OS에서 적용 가능하며 64비트에서도 32비트 호환모드로 사용이 가능한것 확인하였습니다.


개발자 및 라이센스 관련 내용은 아래 readme.txt 내용으로 대체 합니다.

개발자 분께 감사드립니다.


Download 


Readme.txt
**************이미지 사이즈 컴포넌트**********************
개발자 : 박귀준 (pak36@lycos.co.kr)
개인 홈페이지: 없음(-_-;)
*******************************************************
VB로 만든 이미지 사이즈 구하는 컴포넌트를 만들어서 배포합니다.
이건 당연(?)히 프리이고 자유롭게 사용하시면 됩니다.
신버전입니다. 이번 버전의 특징은 플래쉬 파일의 지원과 TIFF파일의 지원이겠네요..
현재 지원하는 그래픽 파일 포맷은 JPG,JPEG,GIF,BMP,PNG,SWF,TIFF(TIF)를 지원합니다.
예제 파일을 첨부하오니 사용해보시고 문제가 있거나 기능 추가가 필요하다면 저한테
메일을 보내주십시요.
* 주의할점 
1.확장자와 함께 그림 파일의 포맷이 일치하여야만 높이값과 넓이 값이 제대로 나옵니다.
2.지정 파일이 없으면 에러는 나지는 않구 높이값과 넓이값이 0으로 나옵니다.



코드 샘플은 아래와 같습니다.

<%
	'**************이미지 사이즈 컴포넌트**********************
	'
	'이미지 사이즈 컴포넌트 테스트 페이지
	'현재 지원하는 그래픽 파일 포맷은
	'JPG,JPEG,GIF,BMP,PNG,TIFF(TIF),SWF를 지원한다.
	'주의할점 확장자와 함께 그림 파일의 포맷이 
	'일치하여야만 높이값과 넓이 값이 제대로 나온다.
	'*******************************************************
	Dim Image_i

	Set Image_i = Server.CreateObject("pakImage.ImageSize")   '이미지 사이즈 컴포넌트를 로딩한다.
		
	 'imageSize 라는 메소드를 사용하여 그림 파일이 있는 경로를 지정한다.
	Image_i.ImageSIze Server.MapPath("테스트.jpg")

	'프로퍼티는 두가지를 지원한다 width(넓이)와 Height(높이)
	Response.write "WIDTH = " & Image_i.width & "<br>"
	Response.write "Height = " & Image_i.Height & "<br>"

	Set Image_i = Nothing '객체 해제

	Set Image_i = Server.CreateObject("pakImage.ImageSize")   '이미지 사이즈 컴포넌트를 로딩한다.
		
	 'imageSize 라는 메소드를 사용하여 그림 파일이 있는 경로를 지정한다.
	Image_i.ImageSIze Server.MapPath("test25.SWF")

	'프로퍼티는 두가지를 지원한다 width(넓이)와 Height(높이)
	Response.write "WIDTH = " & Image_i.width & "<br>"
	Response.write "Height = " & Image_i.Height & "<br>"

	Set Image_i = Nothing '객체 해제
%>


?