🚀 go-pugleaf

> 　ＶＢとＤｅｌｐｈｉの文字列型には互換性がない（内部表現形式が違う）ためです。
> 簡単に実現するためには、ＤＬＬのパラメータとしてやりとりするのがいいと思います。
> 
> ＶＢ側：
> Declare Function xxx Lib "xxx.dll" (ByVal lpBuffer As String) As Integer
> 
> Delphi側：
> function xxx(lpBuffer: Pchar): integer;export;
> 
> こんな感じでしょうか。
> 
フォロー有り難うございました。
Delphi側

 function yyy(lpBuffer : PChar) : integer ; export ;
 function yyy(lpBuffer : PChar) : integer ;
 begin
 lpBuffer[0] := 'D' ;
 lpBuffer[1] := 'e' ;
 lpBuffer[2] := 'l' ;
 result := 1 ;
 end ;

VB側
Declare Function yyy Lib "yyy.dll" (ByVal lpBuffer As String) As Integer
Sub Command3_Click ()
Dim aa As String
aa = text1
i% = yyy(aa)
label1 = aa
End Sub

とすることで、String aa の内容を変えることができました。

func( char_a , char_b : PChar )
や
type moji = array [0..5] of Char ; 
func( char_a , char_b : moji )
などは試していたのですが、だめだったので諦めていましたが
教えていただいた通りにやってみることで実現できました。
本当に有り難うございました。

今後も解らないことがあればお伺いするかも知れませんが
その時はよろしくお願いいたします。
私もがんばって、皆さんのお役に立てるレベルまで修行をつみます。

有り難うございました。

森田 康之
pooh@osk.threewebnet.or.jp 
tisco@osk.threewebnet.or.jp