- ベストアンサー
APIの呼び出しDLLファイルの場所を変化させたい
めとろいと（@naktak）の回答
- めとろいと（@naktak）
- ベストアンサー率36% (785/2139)
> 他の会社がDLLファイルを提供しています。 他社に、環境変数が通るディレクトリにインストールしてもらうよう 依頼するか、自分が作成するexeに同梱させるかのどちらかでしょうね。 ネイティブなDLLを利用するなら、%SystemRoot%\system32にセットアップされるか、 利用者が自分でセットアップしろという感じで説明書があっても いいような気もしますが・・・。
関連するQ&A
- API FtpPutFileの戻り値
お世話になっております。 API FtpPutFileを使用しているのですが 確実にFalseになります。一日悩みましたが原因が わかりません。 If FtpPutFile(lngConnect, _ "***.txt", _ "***.txt", _ FTP_TRANSFER_TYPE_ASCII, _ 0&) <> False Then です。必要なものを付け加えておきます。 Private Declare Function FtpPutFile Lib "wininet.dll" _ Alias "FtpPutFileA" _ (ByVal hFtpSession As Long, _ ByRef lpszLocalFile As String, _ ByRef lpszNewRemoteFile As String, _ ByVal dwFlags As Long, _ ByVal dwContext As Long) As Long Private Const FTP_TRANSFER_TYPE_ASCII = &H1& です。環境はWinXP,VB6+SP5 よろしくお願い致します。
- ベストアンサー
- Visual Basic
- ｄｌｌを使用しＶＢ側に文字列を返す2
No.280310の質問の続きになってしまいますが 「VCで作ったｄｌｌを使用し ＶＢに文字列を返すことはできますか」 でVCで作ったdllをＶＢを呼び出す事ができるようになりました。 Declare宣言で疑問に思ったのですが Declare Function TxtCnt Lib "hoge.dll" (ByVal a As String) As Long aはなぜ値渡しなのでしょうか？ 変数が書き換えられて戻ってくるので、byrefで指定していました。 それが問題が起こしていた原因一つでした。 ちなみにint型の数値をポインタで渡した場合はbyrefでうまくいきます。 ご教授願います。
- ベストアンサー
- Visual Basic
- マウス関連のAPIについて
マウスがどのフォーム（自分のフォームでないときも）でも左クリックしたときの状態の取得方法を教えてください。 Public Declare Function SetCursorPos& Lib "user32" (ByVal x As Integer, ByVal y As Integer) Public Declare Function GetCursorPos& Lib "user32" (ByRef lpPoint As POINTAPI) で、マウスの位置の取得設定はわかりました。
- ベストアンサー
- Visual Basic
- vc++のAPI(dll)の引数をVBAでうけとる
Excelで開発しなければならない事情があり、 vc++のAPIが持っている関数を ExcelVBAでコールしておりますが、エラー1041でExcelが強制終了してしまいます。 VBAからVisual C++にchar*型で渡し、ByRef String型でVBAにて受け取ります。 VCの関数の第四引数「char* 型／attribute_value」をVBAの「String 型／sValue」で受け取る際にエラーになっているようです。 VBAでcharに相当する変数型がないためと思われますが、何かよいアイデアがありましたらご教授願います。 --VC-- XDW_GetDocumentAttributeByName(h, attribute_name, &attribute_type, attribute_value, size, NULL); --VBA-- ＜宣言部＞ Public Declare Function XDW_GetDocumentAttributeByName Lib "C:\Users\○○○\Desktop\dwsdk710jpn\XDWAPI\DLL\xdwapi.dll" (ByVal lnghandle As Long, ByVal sName As String, ByRef lngType As Long, ByRef sValue As String, ByVal lngSize As Long, ByVal reserved As String) As Long ＜呼び出し部＞ Dim lngHandle As Long Dim sName as String Dim lngType As Long Dim sValue As String Dim lngSize as Long Dim tmpSize as Long lngSize = 0 sName = "keiyaku" tmpSize = XDW_GetDocumentAttributeByName(lngHandle, sName, sType, sValue, lngSize, vbNullString) XDW_GetDocumentAttributeByName lngHandle, sName, sType, vbNullString, tmpSize, vbNullString degug.print sValue
- ベストアンサー
- Visual Basic
- VB .NetのDLL参照について
名前付パイプの処理をしているのですが、DLLが参照できません。 Public Class ClsJi01 Public Declare Function MakePipe Lib "\DLL\Point.DLL" (ByVal pipe_name As String, ByVal buf_size As Integer, ByVal max_instances As Short, ByVal hpipe As Integer, ByVal err_code As Integer) As Integer Public Sub M_Pipe() Dim r As Integer Dim rpipe As Integer Dim err_code As Integer r = MakePipe("\\.\pipe\RS04", 255, 16, rpipe, err_code) End Sub End Class Point.DLLは以前VB6.0の時に使用していたDLLで自作です。 これで実行すると「オブジェクト参照がオブジェクト インスタンスに設定されていません。」と出ます。 どうしたら良いのでしょうか？
- ベストアンサー
- Visual Basic
- psapi.dllのGetModuleBaseNameについて
ＯＳ：Windows Server 2003 開発言語：visual basic 2005 vb6で作られたアプリを.net2005に移行しています。 その中で、下記のコードの「GetModuleBaseName」が呼び出される箇所がエラーになり、移行することができません。 ----------------------------------- 【コード】 If EnumProcessModules(hProcess, hModules(0), UBound(hModules), lNeeded) <> 0 Then 'モジュール数を取得する lModules = lNeeded / 4 'モジュールベース名を取得する lRetValue = GetModuleBaseName(hProcess, hModules(0), tModuleBaseName(0), UBound(tModuleBaseName)) ～～～ ～～～ end if ----------------------------------- 【エラー内容】 AcccessViolationExceptionはハンドルされませんでした。 保護されているメモリに読み取りまたは書き込み操作を行おうとしました。 他のメモリが壊れていることが考えられます。 ----------------------------------- 「GetModuleBaseName」自体は下記のとおり定義しています。 ----------------------------------- Declare Function GetModuleBaseName Lib "Psapi.dll" Alias "GetModuleBaseNameA" (ByVal hProcess As Integer, ByVal hModule As Integer, ByRef lpBaseName As String, ByRef nSize As Integer) As Integer ----------------------------------- 移行前のvb6のアプリでこの箇所がエラーなく通ることを確認しました。 Psapi.dllの使用方法がWindowsServer2003になって変更になったのでしょうか？ 使用方法が変更になったのか調べたのですが、WinAPIの知識不足で・・・。 お力をお貸しください。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- VBAでDLLが見つからないエラー
ＣＡＤのＶＢＡ（６．０）ですが、ＤＬＬが見つからないエラーが出ます ' こっちはエラーが出ない Public Declare Function SearchVBApath Lib _ "C:\Program Files\AppliTool\VB\DDDD.dll" (ByVal env As String, ByVal s As String) As Integer 'こっちだとエラーが出る Public Declare Function SearchVBApath Lib "DDDD.dll" (ByVal env As String, ByVal s As String) As Integer ＶＢＡプロジェクトファイルとＤＬＬは同じフォルダにおいてあります 上記のようにフルパスだとエラーが出ないのですがＤＬＬ名だけだとこの関数のところでエラーがでます このＤＬＬ関数宣言行の前の方には他のＤＬＬ関数も同じようにパス省略で記述しているのですがそちらにはエラーが出ません どなたかヒント下さい、よろしくお願いします。
- 締切済み
- Visual Basic
- RegQueryValueExwでエラー
お世話になります。 Declare Function RegQueryValueExString Lib "advapi32.dll" Alias _ "RegQueryValueExA"(ByVal hKey As Integer, ByVal lpValueName As String, ByVal lpReserved As Integer, ByRef lpType As Integer, ByVal lpData As String, ByRef lpcbData As Integer) As Integer RegQueryValueExString(hKey, ValueName, 0, intType, strValue, intSize) この時、ValueNameに２バイト文字が含まれているとエラーになります。 VB 6.0の時は問題なく動いていました。 ご存知の方ご教示お願いいたします。
- ベストアンサー
- Visual Basic
- C++で作成したDLLにVBAから配列渡し
VC++初心者です。よろしくお願いします。 VC++2008ExpressでWindowsアプリケーションのDLLを作成してみました。 Excel2007VBAにて、そのDLLを呼び出して関数を使用したいのですが VBAの配列を参照渡しで渡すと、配列のデータをうまく渡せません。 コードは以下の通りです。 配列ではないデータはうまくいきますが。。。 配列の場合はもっと他に必要なことがあるのでしょうか？ よろしくお願いします。 //VC++ DLLコード #include <windows.h> int APIENTRY Add(int[] a) { return a[0] + a[1] ; } '''VBAのコード Private Declare Function Add Lib "TEST_DLL.dll" (ByRef a() As Integer) As Integer Dim a(1) As Integer Sub test() a(0) = 1 a(1) = 2 MsgBox (Add(a)) End Sub メッセージボックスには3が表示されるはずですが 変な数字に化けてしまいます。 どなたか、ご存知の方、よろしくお願いします。
- ベストアンサー
- C・C++・C#
- DLLの利用について
現在、ＶＣで作成したＤＬＬをＶＢ使うということを行っています。 概要は、ＶＢの方で定義した配列に1～９の数字を代入し、その和を求めるというものです。 ＤＬＬに値を渡す際は参照による引渡しをし、ＤＬＬで変数の変更を行いたいんです。 しかしその変数の変更がうまくいかないんです。 どこがまずいのでしょうか？ プログラム内容は以下に示します。 よろしくお願いします。 *****ＶＢのプログラム***** Option Explicit Private Declare Sub Sum Lib "test.dll" (aa as Integer, bb as Integer) Private Sub Command1_Click() Dim a(9) As Integer '1～9の値の代入先 Dim b As integer '和 Dim I As Integer For I = 0 To 9 a(I) = I + 1 Next I b = 0 Sum a, b 'DLLでの計算 MsgBox (b) '結果表示 End Sub *****DLLの中身***** _declspec(dllexport) void _stdcall Sum(short *aa, short bb) { int i; for ( i=0; i<=9; i++){ bb=bb+aa[i]; } } *****モジュール定義内容***** EXPORTS Sum
- ベストアンサー
- Visual Basic
お礼
ご回答ありがとうございます。 DLLを自分のアプリの場所にコピーか、PATHの通っている場所にコピーか を含めて検討致します。 ありがとうございました。