Tag Zusammen,
ich bin mir sicher ich mache einen Fehler:
Ich mcöhte in einer
Dll eine Memo erzeugen nur kommt beim starten der
dll immer etwas mit kein übergeordnetes fenster??
Was mache ich falsch? Bitte schaut euch dass mal an:
Delphi-Quellcode:
library latlontowaypointlist;
{ Wichtiger Hinweis zur DLL-Speicherverwaltung: ShareMem muss sich in der
ersten Unit der unit-Klausel der Bibliothek und des Projekts befinden (Projekt-
Quelltext anzeigen), falls die DLL Prozeduren oder Funktionen exportiert, die
Strings als Parameter oder Funktionsergebnisse übergeben. Das gilt für alle
Strings, die von oder an die DLL übergeben werden -- sogar für diejenigen, die
sich in Records und Klassen befinden. Sharemem ist die Schnittstellen-Unit zur
Verwaltungs-DLL für gemeinsame Speicherzugriffe, BORLNDMM.DLL.
Um die Verwendung von BORLNDMM.DLL zu vermeiden, können Sie String-
Informationen als PChar- oder ShortString-Parameter übergeben. }
uses
Classes, SysUtils,
StdCtrls, math,forms,sharemem;
type TWaypoint =
record
Event_Flag :
String[1];
holdtime:
String[50];
height:
String[50];
Kurs:
String[50];
Entfernung:
String[20];
Pos_Alt_Lat:
String[50];
Pos_Alt_Lon:
String[50];
Pos_Lat:
String[50];
Pos_Lon:
String[50];
ToleranceRadius:
String[10];
end;
var
pointnr: 0000..9999;
waypoint: Twaypoint;
Memo1:tmemo;
Kurs : real;
//' Der Kurs zwischen Start und Ziel
Entfernung : real;
//' Die Entfernung zwischen Start und Ziels
ToleranceRadiusw,holdtimew,heightw : real;
{$R *.res}
(...)
procedure ini();
register;
begin
Memo1:= TMemo.create(
nil);
Memo1.clear;
Memo1.lines.add('
<Waypoints>');
Memo1.lines.add('
</Waypoints>');
end;
(...)