프로그래밍 노트

VB에서는 문자열 값이 수치값인지 확인하는 IsNumeric이라는 함수가 있다. 이런 것을 델파이에서 쓰려면 아래의 함수를 사용하면 간단하게 문자열이 수치값인지 확인할 수 있다. function IsNum(sStr : string) : boolean; var nErr : integer; nRet : integer; begin Val(sStr, nRet, nErr); Result := (nErr = 0); end;

인터넷에서 16진수 문자열을 10진수 수치값으로 바꾸는 것을 찾아봐도 별로 안나왔다. 너무 쉬워서 그런건가? -.-;; 열심히 찾았는데 알고보니 너무 허무함 VB랑 16진수를 10진수로 바꾸는게 똑같네 VB에서는 "&H"를 문자열에 붙이면 되는데 delphi에서는 '$'만 문자열에 분이면 된다. function HexToInt(sHex:String):Integer; var i:Integer; sWork:String; begin Result := 0; sWork := UpperCase(sHex); for i := 1 to Length(sWork) do begin // 16진수의 문자열인가 체크 if (Ord(sWork[i]) in [0..47, 58..64, 71..255]) then begin Resul..

VB에서 호출한 DLL 함수에 넘긴 파라미터의 값이 DLL 함수안에서 바뀌어진 것이 VB에서 넘긴 변수에 적용되게 하려할때, DLL 함수의 Declare에서 인수앞에 반드시 ByRef가 아니라 ByVal이 와야한다. # VB소스 Declare Function ByRefTest Lib "RefData.dll" (ByVal sData As String) As Integer # C소스 extern "C" int PASCAL EXPORT ByRefTest (char* pszData) { sprintf(pszData, "DLL TEST"); return 0; }

◆ VB에서 DLL참조 Option Explicit On Module mdlMain Declare Function APlusB Lib "aigo.dll" (ByVal csLog As String) As Integer Public Function dllTest(ByVal nA As String, ByVal nB As String) As Integer dllTest = APlusB(nA , nB ) End Function End Module ◆ C의 간단 DLL // aigo.cpp #include "stdafx.h" #include "aigo.h" int WINAPI APlusB(int nA, int nB) { return nA + nB; } // aigo.h #pragma once #ifndef __AF..

비주얼베이직에서 MySQL쓰기 초간단 예제 이 소스를 돌리기위해서는 사전에 DSN을 설정해야된다. DSN설정은 밑의 링크를 참조할 것 http://wwwi.tistory.com/74 MySQL ODBC설정하기 ADO를 쓰기위해서는 프로젝트에서 참조추가를 선택하여 COM 탭에서 Microsoft ActiveX Data Object 2.8 Library를 더블클릭으로 선택해야 된다. 밑의 소스는 테이블을 추가하고 데이터 추가 삭제 변경에 대한 예제이다. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim AdoCn As ADODB.Connection Dim Ad..

나는 VB를 먼저해서 그런지 C의 포인터를 이해하는데 시간이 많이 걸렸던 것같다. 머리가 안좋아서 그런지 포인터를 설명을 들어도 책을 읽어도 이해가 오는데 시간이 많이 걸렸다. 지금도 남에게 포인터를 설명하라고 그러면 그리 속시원하게 알려주지는 못하는 것같다. 포인터의 설명을 들어도 왜 포인터를 써야하는지에 대해서 이해를 특히 못했던 것같다. VB에서 프로그램을 짜다보면 종종 인수를 ByRef로 넘길때가 있다. ByRef가 이해가 간다면 그나마 포인터를 조금이나마 이해하기 쉬울 것같다. 포인터에 대한 자세한 설명은 이곳이 아니고라도 자세하게 써있는 곳이 많이 있으니까 여기에서는 VB의 ByVal, ByRef의 예제와 VC에서의 CString을 인수로 넘길때 포인터를 쓰고 안쓰고에 따라 어떻게 달라지는가에..