Delphi DLL und Aufruf in Excel VBA

[EWeiss]

Zitat:

in VBA wenn ich ByRef einsetze bekomm ich direkt einen Aufruffehler (5)

JA weil ich davon ausgegangen bin das du den String von Delphi aus sendest.

Zitat:

in VBA Byval bekomm ich Hyroglyphen und dann einen Fehler (5)

ByVal ist korrekt.

Beispiel aus meine DLL..

der string wird so gesendet..
VB..

Code:

    Case BASSVISKIND_WMP
        With mInfos
            .SongTitle = MediaTitle
        End With
        BASSVIS_SetInfo mVisParam, mInfos

Code:

  Public Type BASSVIS_INFO
    SongTitle    As String     ' SongTitel ohne Pfad
    Songfile     As String     ' SongFile incl. Pfad (StreamFile)
  End Type

Delphi-Quellcode:

  PBASSVIS_INFO = ^TBASSVIS_INFO;
  TBASSVIS_INFO = record
    SongTitle   : PAnsiChar; // Titel mit vorstehener TitelNr ('1. ')
    Songfile    : PAnsiChar; // SongTitel incl. Pfad
  end;

Delphi-Quellcode:

function BASSVIS_SetInfo(Param: PBASSVIS_PARAM; Infos: PBASSVIS_INFO):
  BOOL; stdcall;

begin
  Result := False;
  case Param^.Kind of
    BASSVISKIND_WINAMP:
    begin
      Result := BASSWinampVisAPI.WINAMPVIS_SetChanInfo(Param^.VisHandle,
                                           Infos^.SongTitle,
                                           Infos^.Songfile);

gruss

[matashen]

Danke,

habs jetzt anders gelöst über Variant,

Wenn ich aber die Exceldatei neu aufmache dann findet er die dll nicht wenn das Verzeichnis nicht mit angegeben ist. Geb ich das Verzeichnis an läuft die dll.

hier mein Funktionierender Code

Code:

Declare Sub QRtoClipboard Lib "QRgenerator.dll" (ByVal value As Variant)


Sub Schaltfläche1_Klicken()
Dim a As Variant
a = ActiveSheet.Range("A1")
QRtoClipboard (a)
ActiveSheet.Range("A20").Select
ActiveSheet.Paste

End Sub

Delphi-Quellcode:

procedure QRtoClipboard(value:  OLEVariant);stdcall;
var mycode:TZintbarcodeComponent;
    mybmp:TBitmap;
    MyFormat : Word;
    AData : THandle;
    APalette : HPALETTE;
    a,afehler:String;
begin;
try
//a:=String(value);
a:=value;

[EWeiss]

Zitat:

Wenn ich aber die Exceldatei neu aufmache dann findet er die dll nicht

Wie ich schon sagte beim debuggen muss diese sich im pfad der VBA.exe befinden.
Hier noch ein paar Infos
http://www.thevbzone.com/secrets.htm

na ja Variants sind nicht das gelbe vom Ei aber bitte wie du willst.
Du könntest auch as Any verwenden.

gruss