'VB6'에 해당되는 글 4건
- 2012.01.05 Web에서 파일 다운로드 하기
- 2012.01.05 Image나 PictureBox에 URL로 이미지 로딩하기
- 2011.03.17 VB6에서 VSS가 인식되지 않을때
- 2011.01.19 Winsock State값
' 아래 부분을 모듈에 선언하고 호출
' if DownloadFileFromWeb(서버URL, 로컬에저장할 파일이름) then
' 성공시 동작
' else
' 실패시 동작
' end if
' 주의사항 : 단!!!! 서버 URL쪽에 파일명이 한글일경우 동작하지 않는다!!!
' 마치 동작하는것 처럼 보일때도 있는데 모든 컴에서 동작하는 것이 아니기 때문에 절대로 주의!!!
' 한글이 가능하게 하는 방법은 다운 받을 서버 URL을 UTF-8로 변환해서 URLEncoding 하면 된다고
' 되어있긴 한데, 그게 되는 상황이었으면 이미 소스에 반영하여 올려놓았을것 -_-);;;
' 만일 누가 성공한 사람이 있으면 댓글로 함수 소스코드좀 올려주세효 ㅠㅠ
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
' if DownloadFileFromWeb(서버URL, 로컬에저장할 파일이름) then
' 성공시 동작
' else
' 실패시 동작
' end if
' 주의사항 : 단!!!! 서버 URL쪽에 파일명이 한글일경우 동작하지 않는다!!!
' 마치 동작하는것 처럼 보일때도 있는데 모든 컴에서 동작하는 것이 아니기 때문에 절대로 주의!!!
' 한글이 가능하게 하는 방법은 다운 받을 서버 URL을 UTF-8로 변환해서 URLEncoding 하면 된다고
' 되어있긴 한데, 그게 되는 상황이었으면 이미 소스에 반영하여 올려놓았을것 -_-);;;
' 만일 누가 성공한 사람이 있으면 댓글로 함수 소스코드좀 올려주세효 ㅠㅠ
Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000
Public Function DownloadFileFromWeb(sSourceUrl As String, sLocalFile As String) As Boolean
DownloadFileFromWeb = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function
' 아래의 함수를 사용하면 가능
'
' image1.picture = loadwebpicture("url")
' 별도의 모듈에 선언해 넣을것
' 출처는
' http://www.devpia.com/Maeul/Contents/Detail.aspx?BoardID=48&MAEULNO=19&no=3692&page=2
' 여기 데브피아에 회원정보를 까먹어서 감사하다는 인사를 못드림..ㅠㅠ OTL
'
Private Type TGUID
'
' image1.picture = loadwebpicture("url")
' 별도의 모듈에 선언해 넣을것
' 출처는
' http://www.devpia.com/Maeul/Contents/Detail.aspx?BoardID=48&MAEULNO=19&no=3692&page=2
' 여기 데브피아에 회원정보를 까먹어서 감사하다는 인사를 못드림..ㅠㅠ OTL
'
Private Type TGUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long
Public Function LoadWebPicture(ByVal strFileName As String) As Picture
Dim IID As TGUID
With IID
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End With
On Error GoTo ERR_LINE
OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadWebPicture
Exit Function
ERR_LINE:
Set LoadWebPicture = VB.LoadPicture(strFileName)
End Function
VSS대신에 CVS를 사용할 수 있게 해준다는 툴을 깔아봤더니 기존의 VSS가 완전 망가져 버려서 다시 설치해야 했다.
다시 설치했음에도 불구하고 VB6에서는 VSS를 인식하지 못해서 문제가 발생. 다시 설치를 해도 문제는 그대로 -_-);
해결책은 아래와 같음. 출처는 MS홈
진짜 오랜만에 보게 되는 실질적으로 도움이 되는 MS사이트의 해결책 -_-);
다시 설치했음에도 불구하고 VB6에서는 VSS를 인식하지 못해서 문제가 발생. 다시 설치를 해도 문제는 그대로 -_-);
해결책은 아래와 같음. 출처는 MS홈
- Visual Basic 닫습니다.
- REGSVR32.exe를 다음 DLL 파일을 등록할 수 있습니다.VBSCC.dll (\Microsoft Visual Studio\VB98에 있음)예를 들어, 첫 번째 DLL에 [NULL]에 대한 명령 프롬프트에서 다음 명령을 입력합니다.
SSSCC.dll (\Microsoft Visual Studio\Common\VSS\Win32에 있음)
SSAPI.dll (\Microsoft Visual Studio\Common\VSS\Win32에 있음)"Visual Studio\VB98\VBSCC.DLL C:\Microsoft" REGSVR32.EXE - Windows 폴더에 있는 VBADDIN.ini 파일을 편집하여 선 변경VBSCC = 0다음과 같이 하십시오.VBSCC = 3
(VBSCC = 1, 시작할 때 로드 = VBSCC = 2 로드/언로드, = VBSCC 3 = 로드 시 시작 및 로드/언로드 =)
참고: 이 줄 VBADDIN.in 파일에 있을 경우 이를 추가하십시오.
진짜 오랜만에 보게 되는 실질적으로 도움이 되는 MS사이트의 해결책 -_-);
| 상수값 | 실제값 | 설명 |
| sckClosed | 0 | 기본값. 닫혀있음 |
| sckOpen | 1 | 열려있음 |
| sckListening | 2 | 대기중(Listening) |
| sckConnectionPending | 3 | Connection Pending |
| sckResolvinghos | 4 | Resolving host |
| sckHostResolved | 5 | Host Resolved |
| sckConnecting | 6 | 연결중 |
| sckConnected | 7 | 연결됨 |
| sckClosing | 8 | 닫는중 |
| sckError | 9 | 오류 |
찾기 귀찮아서 걍 써놓음...
그나저나 얼마만의 VB6.0인지.. 다 까먹어서 기억도 안남 OTL
Prev
Rss Feed