프로그래밍 노트

VB에서 사용하는 InStr은 Delphi에서 Pos 함수를 사용하면 된다. procedure TForm1.Button1Click(Sender: TObject); var sSearch : string; iSearch : integer; begin sSearch := '가나다라마바사'; iSearch := Pos('나',sSearch); // 반환값 = 3 iSearch := Pos('파',sSearch); // 반환값 = 0 end; 오래간만에 코드를 보니까 이렇게 간단한 것도 기억이 안나네 -.-;;

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을 인수로 넘길때 포인터를 쓰고 안쓰고에 따라 어떻게 달라지는가에..