오후 12:54 2004-10-13

#include <comdef.h> 
 
... 
 
CString strLine; 
_bstr_t bstrText( strText ); 
strLine.Format( "%s", LPCSTR( bstrText ) ); 

public IObjectSafetyImpl<CKioPhotoPaymentCtrl, INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA> 

오후 2:22 2004-08-17

// 키보드 막기 
document.onkeydown=KeyEventHandle;  
document.onkeyup=KeyEventHandle;  
 
function KeyEventHandle() { 
        if ( (event.ctrlKey == true && (event.keyCode == 78 || event.keyCode == 82)) || (event.keyCode >= 117 && event.keyCode <= 123) ) {  
                event.keyCode = 0;  
                event.cancelBubble = true;  
                event.returnValue = false;  
        }  
}  
 
// 마우스 막기 
document.onmousedown = mouseright; 
function mouseright(e) { 
        if (navigator.appName == 'Netscape' && (e.which == 3 || e.which == 2)) { 
                return false; 
        } else if (navigator.appName == 'Microsoft Internet Explorer' && (event.button == 2 || event.button == 3)) { 
                return false; 
        } 
 
        return true; 
} 

오전 11:08 2004-08-16

HWND hWnd; 
((IOleInPlaceObjectWindowlessImpl<Ctestatlctrl>*)this)->GetWindow(&hWnd); 
::PostMessage(hWnd, WM_PAINT, 0, 0); 

: 안된다. 대체 어느 윈도우 핸들에 가져다가 메시지를 박는지는 모르지만.

::InvalidateRect(m_hWnd, &m_rcPos, false); 

: 대충 이런 식인데, m_rcPos의 값이 옳은데도 불구, false/true의 관계도 상관없이 전체 화면을 다시 그려버린다.

그냥 mfc로 짜야겠다...

오전 11:26 2004-06-04

오후 3:54 2004-05-26

'Configuration용 접두어-Namespace 
const CONFURL = "http://schemas.microsoft.com/cdo/configuration/" 
 
function PostNewsThread(host, newsgroup, subject, contenttext, username, useremail) 
        Set msg = Server.CreateObject("CDO.Message") 
        Set Flds = msg.Configuration.Fields             'Flds는 ADODB.Fields 객체임 
         
        Flds(CONFURL+"postusing")               = 2 'cdoPostUsingPort 
        Flds(CONFURL+"protocolauthentication")               = 0 'cdoAnonymous  
        Flds(CONFURL+"nntpserver")               = host 
        Flds(CONFURL+"nntpserverport")               = 119 
        Flds(CONFURL+"nntpauthenticate")                  = 0 'cdoAnonymous  
        Flds(CONFURL+"postusername")               = username 
        Flds(CONFURL+"postnntpaccountname")               = username 
        Flds(CONFURL+"postpassword")               = "" 
        Flds(CONFURL+"postemailaddress")               = username + " <"+useremail+">" 
        Flds(CONFURL+"postuserreplyemailaddress")               = username + " <"+useremail+">" 
        Flds.Update 
 
        msg.Subject = subject 
        msg.TextBody = contenttext 
        msg.Newsgroups = newsgroup 
        msg.From = username + " <"+useremail+">" 
        msg.Post 
end function 

오후 1:30 2004-05-06

[VBScript]  
Dim WshShell, bKey 
Set WshShell = WScript.CreateObject("WScript.Shell") 
 
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY" 
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!", "REG_SZ" 
 
bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\") 
WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader") 
 
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\MindReader" 
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\" 
WshShell.RegDelete "HKCU\Software\ACME\" 
 
[JScript]  
var WshShell = WScript.CreateObject ("WScript.Shell"); 
 
WshShell.RegWrite ("HKCU\\Software\\ACME\\FortuneTeller\\", 1, "REG_BINARY"); 
WshShell.RegWrite ("HKCU\\Software\\ACME\\FortuneTeller\\MindReader", "Goocher!", "REG_SZ"); 
 
var bKey =    WshShell.RegRead ("HKCU\\Software\\ACME\\FortuneTeller\\"); 
WScript.Echo (WshShell.RegRead ("HKCU\\Software\\ACME\\FortuneTeller\\MindReader")); 
 
WshShell.RegDelete ("HKCU\\Software\\ACME\\FortuneTeller\\MindReader"); 
WshShell.RegDelete ("HKCU\\Software\\ACME\\FortuneTeller\\"); 
WshShell.RegDelete ("HKCU\\Software\\ACME\\"); 

파일 선택했을 때, 이미지 사이즈 냅다 알아내는 코드. ('페이지를 열 때마다' 옵션 주면 냅다 오작동)

<script> 
function openNewWin(tmpImg) 
{ 
    var newWin; 
    newWin = window.open(tmpImg.src, '', 'width='+tmpImg.width+',height='+tmpImg.height); 
    newWin.focus(); 
} 
 
function onloadfile(fname) 
{ 
        alert(fname); 
        var tmpImg = new Image; 
        tmpImg.src = fname; 
        tmpImg.onload = openNewWin(tmpImg); 
} 
</script> 
 
<BODY> 
<INPUT TYPE="file" name="file1" onChange="onloadfile(this.value);"> 
</body> 

/* 테이블 생성 SQL */ 
CREATE TABLE [dbo].[tb1] ( 
        [ID] [varchar] (10)  NOT NULL , 
        [description] [varchar] (50) NOT NULL  
) ON [PRIMARY] 
GO 
 
CREATE TABLE [dbo].[tb2] ( 
        [idx] [int] IDENTITY (1, 1) NOT NULL , 
        [ID1] [varchar] (10) NULL , 
        [ID2] [varchar] (10) NULL , 
        [ID3] [varchar] (10) NULL , 
        [ID4] [varchar] (10) NULL , 
        [ID5] [varchar] (10) NULL , 
        [ID6] [varchar] (10) NULL , 
        [ID7] [varchar] (10) NULL , 
        [ID8] [varchar] (10) NULL , 
        [ID9] [varchar] (10) NULL , 
        [ID10] [varchar] (10) NULL  
) ON [PRIMARY] 
GO 
/* 테이블 생성 SQL의 끝 */ 
 
 
 
/* 실제 필요한 스크립트의 시작 */ 
/* 일단 필드의 갯수는 10개로 가정 */ 
Declare @d1 varchar(10), @d2 varchar(10), @d3 varchar(10),@d4 varchar(10),@d5 varchar(10),@d6 varchar(10),@d7 varchar(10),@d8 varchar(10),@d9 varchar(10),@d10 varchar(10) 
 
CREATE TABLE #temp(tempfield varchar(10) NULL)  
 
/* 각 필드의 ID 값에 따라 설명에 해당하는 description 필드를 가져옴 
    필드의 ID 값이 NULL이면 해당 description 필드에도 NULL 값이 들어간다 */ 
Declare rCursor CURSOR FOR   
      SELECT   tb1_1.description AS description1, tb1_2.description AS description2,  
                tb1_3.description AS description3, tb1_4.description AS description4,  
                tb1_5.description AS description5, tb1_6.description AS description6,  
                tb1_7.description AS Expr6description7, tb1_8.description AS description8,  
                tb1_9.description AS description9, tb1_10.description AS description10 
        FROM      dbo.tb2 
          LEFT OUTER JOIN dbo.tb1 tb1_1 ON dbo.tb2.ID1 = tb1_1.ID 
          LEFT OUTER JOIN dbo.tb1 tb1_2 ON dbo.tb2.ID2 = tb1_2.ID 
                LEFT OUTER JOIN dbo.tb1 tb1_3 ON dbo.tb2.ID3 = tb1_3.ID 
                LEFT OUTER JOIN dbo.tb1 tb1_4 ON dbo.tb2.ID4 = tb1_4.ID 
                LEFT OUTER JOIN dbo.tb1 tb1_5 ON dbo.tb2.ID5 = tb1_5.ID 
                LEFT OUTER JOIN dbo.tb1 tb1_6 ON dbo.tb2.ID6 = tb1_6.ID 
                LEFT OUTER JOIN dbo.tb1 tb1_7 ON dbo.tb2.ID7 = tb1_7.ID 
                LEFT OUTER JOIN dbo.tb1 tb1_8 ON dbo.tb2.ID8 = tb1_8.ID 
                LEFT OUTER JOIN dbo.tb1 tb1_9 ON dbo.tb2.ID9 = tb1_9.ID 
                LEFT OUTER JOIN dbo.tb1 tb1_10 ON dbo.tb2.ID10 = tb1_10.ID 
OPEN rCursor  
FETCH NEXT From rCursor  
        INTO @d1, @d2,  @d3,  @d4,  @d5,  @d6,  @d7,  @d8,  @d9,  @d10   
 
/* 루프를 돌면서  NULL 이 아닌 값을 임시 테이블에 집어넣는다 */  
WHILE (@@FETCH_STATUS <> -1)   
BEGIN   
        IF(@d1 IS not null)  
        INSERT   #temp 
                Select @d1 
        IF(@d2 IS not null)  
        INSERT   #temp 
                Select @d2 
        IF(@d3 IS not null)  
        INSERT   #temp 
                Select @d3 
        IF(@d4 IS not null)  
        INSERT   #temp 
                Select @d4 
        IF(@d5 IS not null)  
        INSERT   #temp 
                Select @d5 
        IF(@d6 IS not null)  
        INSERT   #temp 
                Select @d6 
        IF(@d7 IS not null)  
        INSERT   #temp 
                Select @d7 
        IF(@d8 IS not null)  
        INSERT   #temp 
                Select @d8 
        IF(@d9 IS not null)  
        INSERT   #temp 
                Select @d9 
        IF(@d10 IS not null)  
        INSERT   #temp 
                Select @d10 
        FETCH NEXT From rCursor  
                INTO @d1, @d2,  @d3,  @d4,  @d5,  @d6,  @d7,  @d8,  @d9,  @d10   
END   
CLOSE rCursor   
DEALLOCATE rCursor  
 
/* 결과값 가져오기 */ 
SELECT   * 
FROM      #temp; 
 
/* 임시 테이블 삭제 */ 
DROP TABLE #temp; 

이젠 행복하게 저장 프로시저를 좀 써보자... ;ㅂ;

SqlCommand comm = new SqlCommand(); 
SqlConnection conn = new SqlConnection(ConfigurationSettings.AppSettings["DSNConnectionString"]); 
comm.Connection = conn; 
comm.CommandType = CommandType.StoredProcedure; 
comm.CommandText = "sp_uGetKeyCode"; 
SqlParameter param = new SqlParameter("RETURN_VALUE",SqlDbType.Int); 
param.Direction = ParameterDirection.ReturnValue; 
comm.Parameters.Add(param); 
conn.Open(); 
comm.ExecuteNonQuery(); 
int nRet = (int)comm.Parameters["RETURN_VALUE"].Value; 
conn.Close(); 

오후 4:44 2004-03-29

Declare @count int 
Declare rCursor CURSOR FOR 
        SELECT * From Cont_TB Order by Colorcode 
Set @count = 0 
OPEN rCursor 
FETCH NEXT FROM rCursor 
WHILE (@@FETCH_STATUS <> -1) 
        BEGIN 
                Set @count = @count + 1 
                UPDATE Cont_TB SET Key_Code = @count WHERE CURRENT OF rCursor 
                FETCH NEXT FROM rCursor 
        END 
CLOSE rCursor 
DEALLOCATE rCursor 
GO 

CREATE PROCEDURE [dbo].[sp_uGetKeyCode] AS 
Declare @count int, @rKeyCode int, @row_status int 
 
Set @count = 0  
Declare rCursor CURSOR FOR  
        SELECT Key_Code From Cont_TB Order by Key_Code 
OPEN rCursor 
FETCH NEXT From rCursor 
        INTO @rKeyCode 
 
WHILE (@@FETCH_STATUS <> -1)  
BEGIN  
        Set @count = @count + 1 
        Set @row_status = @@FETCH_STATUS 
        IF(@count <> @rKeyCode) 
        BEGIN 
                Set @count = @count - 1 
                Break 
        END 
        FETCH NEXT From rCursor 
                INTO @rKeyCode 
END  
CLOSE rCursor  
DEALLOCATE rCursor 
RETURN(@count+1) 
GO 

일단 기계 제작사에서 만든 코드를 쓰는거니까 이상은 없겠지만.
rs-232 통신.. 어흑이다 진짜 ;

비베에서 ocx 만들려면 이렇게 하는 수밖에 없는건가...?
진짜 복잡하고 난잡하기가 귀성길의 서울역에 그지없구나 ;

uddi, wsdl, soap, http.

<script> 
function fnShellExecuteJ() 
{ 
        var objShell = new ActiveXObject("Shell.Application"); 
        objShell.ShellExecute("notepad.exe", "", "", "open", 1); // normal window 
} 
</script> 

초간단 ado.net 예제 (in C#)

// 네임스페이스 추가 
 
Using System.Data; 
Using System.Data.SqlClient; 
 
... 
  
SqlConnection sCon = new SqlConnection("DB연결문자열"); 
SqlCommand sCom = new SqlCommand(); 
sCom.Connection = sCon; 
sCom.CommandType = CommandType.StoredProcedure;  // 저장 프로시저를 사용 안하면 이부분은 생략 
 
try 
{ 
    if(sCon.State == ConnectionState.Open) // 이미 열린 SqlConnection 개체를 또 열때 발생하는 에러 방지 
        sCon.Close(); 
    sCom.Transaction = sCon.BeginTransaction(IsolationLevel.ReadCommitted,"트랜잭션명"); // 트랜잭션 시작 
 
    ... 
    sCom.CommandText = "해당 프로시저명"; // 저장 프로시저를 사용 안할 경우 인라인 쿼리문 
    sCom.ExcuteNonQuery(); // 기타 실행방식도 가능 
    sCom.CommandText = "해당 프로시저명"; 
    sCom.ExcuteNonQuery(); 
    ...// 이런 식으로 쿼리문 실행 계속.. 루프도 이 부분에서 돌립니다.  
 
       // SqlParameter가 필요하면 해당쿼리 실행 전에 Add 또는 Clear  또는 RemoveAt 메소드 사용해 주구요.. 
 
    // 여기까지 에러가 없으면 Commit 해줌 
    sCom.Transaction.Commit(); 
} 
catch(SqlException ex) 
{ 
    // 에러가 발생하면 Rollback 해줌 
    sCom.Transaction.Rollback(); 
} 
finally 
{ 
    sCon.Close(); 
}