zelf een plug-in maken onder delphi

[EWS99]

Ik heb het volgende probleem:
Ik heb een programma dat een array gebruikt van [1..512] waar de waardes 0..255 in kunnen (DMX voor de kenners).
Nu wil ik (het liefst via een DLL) een plug-in maken, zodat andere programma's die array aan kunnen passen (dus andere waardes in deze array kunnen zetten).
Bijv. een DLL met de volgende functies: Setvalue(nr,value:integer) en Getvalue(nr):integer
Setvalue is dan voor het 'vreemde' programma, en getvalue voor het eigen programma.
Heeft iemand hier tips voor?

[dusty]

Ja.

Antwoord op een vraag die je had kunnen stellen : "Service"

[EWS99]

En hoe kan ik dit het makkelijkst realizeren?

[Verwijderd]

Tja..... gebruik gewoon een file hiervoor (text of binair, whatever you like). DLL gebruiken lijkt me een beetje overbodig....

[EWS99]

Tja, zou kunnen, alleen bij dmx moet er om de 40ms data beschikbaar staan, dus dan zou het programma om de 40ms die file laden. In dat opzicht lijkt het me beter om het (eventueel) via een dll te doen. (mag ook anders zijn)

[EWS99]

Heeft niemand een oplossing?

[WOmBaT]

Je kunt proberen een eigen message te creeeren via het overbekende windows message systeem en de waarden overdragen d.m.v. de LPARAM en WPARAM. Ik denk dat je op delphi.about.com daar wel meer info over klan vinden en anders bij delphi3000.com. Succes

[EWS99]

gaat dat snel genoeg?

[Gerco]

Op donderdag 04 oktober 2001 21:44 schreef hardrocker het volgende:
gaat dat snel genoeg?

Aangezien het systeem enkele honderden window messages per seconde kan sturen is dat inderdaad snel genoeg. Alleen is het niet gegarandeerd dat windowmessages snel aankomen, het kan wel een paar ms te lang duren als het systeem erg druk is.

[Verwijderd]

Voorbeeld

code:

library DllProject;

uses
  Windows;

{$R *.RES}

const
  FBuffer: PChar = nil;
  FSharedBuffer: THandle = 0;
  CBufferSize = 1024;

procedure SetValue(const ANr, AValue: Integer);
begin
  if (ANr < 0) or (ANr >= CBufferSize) then Exit;
  PByte(FBuffer + ANr)^ := Byte(AValue);
end;

function GetValue(const ANr: Integer): Integer;
begin
  if (ANr >= 0) and (ANr < CBufferSize) then
    Result := PByte(FBuffer + ANr)^
  else
    Result := 0;
end;

exports
  SetValue,
  GetValue;

procedure LibInit;
begin
  FSharedBuffer := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0,
    CBufferSize, 'HoiHoi');
  FBuffer := MapViewOfFile(FSharedBuffer, FILE_MAP_WRITE, 0, 0, 0);
end;

var
  SaveExit: Pointer;

procedure LibExit;
begin
  UnmapViewOfFile(FBuffer);
  CloseHandle(FSharedBuffer);
  ExitProc := SaveExit; // restore exit procedure chain
end;

begin
  LibInit;
  SaveExit := ExitProc; // bewaar exit procedure chain
  ExitProc := @LibExit; // install LibExit exit procedure
end.

Have fun

[EWS99]

Bedankt voor de code, ik heb hem uitgeprobeerd met wat dingen aangepast:

code:

library plugin;
uses
  sharemem,
  SysUtils,
  Classes,windows;

{$R *.RES}
const
  FBuffer: PChar = nil;
  FSharedBuffer: THandle = 0;
  CBufferSize = 512;


procedure setchannel(Const ANr, AValue: Integer);
begin
  if (ANr < 0) or (ANr >= CBufferSize) then Exit;
  PByte(FBuffer + ANr)^ := Byte(AValue);
end;

function getchannel(Const ANr: Integer): Integer;
begin
  if (ANr >= 0) and (ANr < CBufferSize) then
    Result := PByte(FBuffer + ANr)^
  else
    Result := 0;
end;

exports
  setchannel,
  getchannel;

procedure LibInit;
begin
  FSharedBuffer := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0,
    CBufferSize, 'HoiHoi');
  FBuffer := MapViewOfFile(FSharedBuffer, FILE_MAP_WRITE, 0, 0, 0);
end;

var
  SaveExit: Pointer;

procedure LibExit;
begin
  UnmapViewOfFile(FBuffer);
  CloseHandle(FSharedBuffer);
  ExitProc := SaveExit; // restore exit procedure chain
end;

begin
  LibInit;
  SaveExit := ExitProc; // bewaar exit procedure chain
  ExitProc := @LibExit; // install LibExit exit procedure
end.

Om de dll te testen heb ik het volgende programmaatje gemaakt:

code:

unit Unit1;

interface

uses
  sharemem, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin;

type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    setbtn: TButton;
    getbtn: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure setbtnClick(Sender: TObject);
    procedure getbtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure setchannel(Anr,Avalue:integer); stdcall; external 'plugin.dll';
function getchannel(Anr: integer): integer; stdcall; external 'plugin.dll';

procedure TForm1.setbtnClick(Sender: TObject);
begin
 SetChannel(SpinEdit1.Value,SpinEdit2.Value);
end;

procedure TForm1.getbtnClick(Sender: TObject);
begin
SpinEdit2.Value:=GetChannel(SpinEdit1.Value);
end;

end.

Alleen als ik nu op de set button klik krijg ik de volgende error:

code:

Project dlluser.exe raiserd exception class EAccessViolation with message 'Access violation at address 0000002. Read of address 00000002'. Process stopped. Use Step or Run to continue.

Wat doe ik verkeerd?
Owja, ik gebruik windows 2000 (misschien heeft het daar mee te maken?)
Help?

[Verwijderd]

Probeer effe wat, zoals:

• ShareMem weghalen, is alleen nodig als je strings gebruikt in dll's
• StdCall weghalen [<- Dit is volgens mij het probleem]
• const erbij zetten

Dus zoiets

code:

function GetChannel(const ANr: Integer): Integer; external 'Plugin.dll';
procedure SetChannel(const ANr, AValue: Integer); external 'Plugin.dll';

[EWS99]

Fixed!
stdcall was het probleem.
Echt hartstikke bedankt, dit was precies wat ik bedoelde en nodig had

[EWS99]

btw, zou je mij je email adres (of icq) door willen geven (via email of icq)?
Kan wel eens makkelijk zijn, en sneller antwoord
Bvd.

[Verwijderd]

Op dinsdag 09 oktober 2001 16:58 schreef hardrocker het volgende:
btw, zou je mij je email adres (of icq) door willen geven (via email of icq)?
Kan wel eens makkelijk zijn, en sneller antwoord
Bvd.

Mwoh, daar heb ik eigenlijk niet zo zin in

Ik begrijp dat het wel makkelijk voor jou kan zijn, maar ik vind het beantwoorden van vragen via GoT makkelijker; ik kan antwoorden wanneer ik wil en als ik de vraag leuk vind. En anders zijn er zillion andere users die jouw vragen kunnen beantwoorden.

Ik ben trouwens aan het afstuderen en dus bijna continue online [op GoT] en kan dus snel antwoorden op vragen...

Niet lullig bedoeld natuurlijk

[EWS99]

Met alle respect voor je privacy, en nogmaals mijn hartelijke dank

[EWS99]

maaruh, wat wil dat stdcall dan precies zeggen, en waarom geeft hij daar problemen mee?

[EWS99]

(thread omhoog gooien)

[Verwijderd]

Uit de help:

When you declare a procedure or function, you can specify a calling convention using one of the directives register, pascal, cdecl, stdcall, and safecall.

[..]

Calling conventions determine the order in which parameters are passed to the routine. They also affect the removal of parameters from the stack, the use of registers for passing parameters, and error and exception handling. The default calling convention is register.

[..]

The default register convention is the most efficient, since it usually avoids creation of a stack frame. (Access methods for published properties must use register.) The cdecl convention is useful when you call functions from DLLs written in C or C++, while stdcall and safecall are used for Windows API calls.

[..]

In de dll had je bij de procedure declaratie niets gespecificeerd, dus werd register gebruikt; in de unit waarin je de functies uit de dll gebruikt, wou je ze aanroepen met stdcall; en dat gaat fout zoals je zag.