adodb.stream을 사용하여 색상 검증 코드를 만드는 방법을 알고 있습니까? 오늘날 Foxin Technology Channel의 편집자는 예에서 귀하를위한 작업 방법을 보여줍니다. 이 지식을 배우는 것이 도움이되기를 바랍니다.
코드 사본은 다음과 같습니다.응답 .buffer = true
Numcode
함수 numcode ()
응답 .expires = -1
Response.addheader "Pragma", "No-Cache"
response.addheader "Cache-Ctrol", "No-Cache"
Dim Znum, I, J.
Dim Ados, ADOS1
타이머를 무작위 화하십시오
임의의 4 자리 숫자를 생성하십시오.
Znum = Cint (8999*RND+1000)
세션에 전달하십시오
세션 ( "getCode") = Znum
루프의 경우에는 랜덤 숫자가 첨자 3이있는 배열에 랜덤 숫자를 넣는 것입니다. 이는 후속 배열 변환을 제공하기에 편리합니다.
Dim Zimg (3), nstr
nstr = cstr (znum)
i = 0 ~ 3의 경우
Zimg (I) = Cint (MID (NSTR, I+1,1))
다음
Dim POS
'이미지 데이터 작동을 위해 두 개의 adodb.Stream Binary Objects 정의 :
set ados = server.createobject ( "adodb.stream")
ados.mode = 3
ados.type = 1
ados.open
set ados1 = server.createobject ( "adodb.stream")
ados1.mode = 3
ados1.type = 1
ADOS1. OPEN
'로드 0 ~ 9 디지털 데이터 10x100, GBR 배열 데이터, 각 320 바이트, 10 자리 3200 바이트
'BGR 1 점, 10x10 포인트 1 숫자, 1 점 3 바이트 (이진의 8 비트, 00 ~ ff 16 진수)
'10 점의 행 30 바이트 + 선 마크 끝 00 00 00 2 바이트 32 바이트, 각 숫자 10x10의 길이보다 작은 10x100 이미지는 320 바이트입니다.
'길이가 너비보다 크면 줄 0000의 끝 마크가없고 직접 300 바이트가 없습니다.
BMP 24 비트 데이터 세부 사항입니다
'머리는 길이와 너비, 이미지 시작 마킹 등을 포함하여 매우 간단합니다. ~~ 54 바이트, JPG 또는 무언가보다 훨씬 덜 복잡합니다.
ados.loadfromfile (server.mappath ( "body.fix"))
ados1.Write ados.Read (1280)
'루프의 첫 번째는 10x100 디지털 어레이에서 해당 4 개의 숫자를 생성 한 임의 숫자 순서로 추출합니다.
그러나 수직 숫자 배열
i = 0 ~ 3의 경우
ados.position = (9-zimg (i))*320
ados1.position = i*320
ados1. ados.read (320)
다음
'중고 ADOS의 데이터를 지우고 새 이미지 헤더 54 바이트를 대체하는 헤더 파일에서 호출
ados.loadfromfile (server.mappath ( "head.fix"))
pos = lenb (ados.read ())
Ados.Position = POS 'POS 위치를 지정하면 위치를 54 바이트로 상쇄하여 그래픽 데이터를 추가 할 수 있습니다.
루프의 두 번째는 숫자의 배열 변환을 수행하여 수직 블록을 수평 블록으로 변환합니다.
이 방법은 320 바이트의 4 배를 추출하고 ADOS 객체에 쓰고 두 번째 줄에서 오프셋 된 이미지 데이터를 추출하는 것입니다.
30 바이트는 BMP 너비가 00 00 라인 엔드 마크없이 길이보다 크기 때문입니다.
i = 0 ~ 9의 경우 1 단계
j = 0 ~ 3의 경우
ados1.position = i*32+j*320
ados.position = pos+30*j+i*120
ados.write ados1.read (30)
다음
다음
ados.position = 0
Response.BinaryWrite 이미지 데이터를 클라이언트로 직접 보냅니다
응답 .contentType = "image/bmp"
response.binarywrite ados.read ()
ados.close : set ados = nothing
ADOS1.CLOSE : SET ADOS1 = 아무것도
엔드 기능
위의 기사는 adodb.stream을 사용하여 색상 검증 코드를 작성하는 Error New Technology Channel의 편집기입니다. 나는 모든 사람들이 이러한 운영 방법을 배웠다고 생각합니다. 오류 New Technology Channel Network는 기술 전문 지식을 계속 구성 할 것입니다. 나는 당신이 우리에게 계속주의를 기울 이길 바랍니다!