Zitat von
SirThornberry:
Wird das ShowMessage nicht ausgelöst in der
Dll? Und exakt der gleiche Quelltext funktionert außerhalb einer
DLL anders?
Die ShowMessage wird in der
dll nicht ausgeführt. Folgender Quelltext läuft ohne
dll fehlerfrei (aber in einer Form Umgebung):
Delphi-Quellcode:
unit RingBufferRW;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, AdPacket, OoMisc, AdPort;
type
TForm2 =
class(TForm)
procedure Init(Sender: TObject);
private
robotString:
String;
datapacket1: TApdDataPacket;
COM_port1: TApdComPort;
procedure GetString(Sender: TObject; robotString:
String);
protected
public
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
//------------------------------------------------------------------------------
procedure TForm2.Init(Sender: TObject);
begin
// com and datapacket
end;
procedure TForm2.GetString(Sender: TObject; robotString:
String);
begin
showmessage('
Ready (CR) received');
end;
end.
Es scheint schon was damit zu tun zu haben ob eine Form exisitert oder nicht.
Besten Dank für weitere Ideen.
Gruss
hum