Fehler bei neuem Swiss_Knife_include?

17/01/2009 - 10:16 von Wolfgang Bauer | Report spam
Servus.

Ich habe das BM und Swiss_Knife_include von Gestern geholt und ich denke
ich habe alles richtig gemacht.

8<->8
Program OnBeforeSendingMessage;
Uses textfile, Forms, StdCtrls;
{$I Basis_Modul_Include}
|>>>{$I Swiss_Knife_Include}
Function OnBeforeSendingMessage(var Message:TStringlist;Servername:string;IsEmail:boolean):boolean;

Begin
If Not BM_PathCheck(GetCurrentDir) Then
Begin
Ado('ReloadScripts');
Ado('Scripting');
End;
Result := True;
End;

Begin
End.
8<->8
Kompilieren fehlgeschlagen
[Error] OnBeforeSendingMessage.ds(10:9): Unknown identifier 'Ado'

Wobei ich frage, ist es richtig, daß
{$I Swiss_Knife_Include}
nicht mehr aufgerufen wird?

Ich bin sowieso verwirrt. Es gibt zwei Beispiele für die
OnBeforeSendingMessage.

In der Basis_Modul_ReadMe.txt

Program OnBeforeSendingMessage;
Uses textfile, Forms, StdCtrls;
{$I Basis_Modul_Include}

Function OnBeforeSendingMessage(var Message:TStringlist;Servername:string;IsEmail:boolean):boolean;

Begin
If Not BM_PathCheck(GetCurrentDir) Then
Begin
Ado('ReloadScripts');
Ado('Scripting');
End;
Result := True;
End;

Begin
End.


Und in der ReadMeFirst.txt aus Swiss_Knife_include_16012009.zip


Program OnBeforeSendingMessage;
Uses textfile, Forms, StdCtrls;
{$I Basis_Modul_Include}
{$I Swiss_Knife_Include}
Function OnBeforeSendingMessage(var Message:TStringlist;Servername:string;IsEmail:boolean):boolean;

Begin
Result := True;
Swiss_Knife ( Message, IsEmail );
End;

Begin
End.
-

Und dann bekomme ich auch ein Error beim Compilieren der OnXOver.
Kompilieren fehlgeschlagen
[Error] Basis_Modul_Include(807:14): Unknown type 'TextFile'

Habe ich doch etwas überlesen oder sonst einen Fehler gemacht? Welche
OnBeforeSendingMessage ist richtig?

Ps. Wahrscheinlich wird das OnBeforeSendingMessage und Swiss_Knife nun
gar nicht funtionieren.

Freundliche Grüße
Wolfgang
http://www.wolfgang-bauer.at
40tude-Dialog DER Newsreader unter Windows http://dialog.datalist.org/
news:de.comm.software.40tude-dialog
40tude-Dialog Forum http://4ds.siteboard.eu/
 

Lesen sie die antworten

#1 Hermann Hippen
17/01/2009 - 10:27 | Warnen spam
Hallo Wolfgang Bauer,

Wolfgang Bauer schrieb in d.c.s.4-d:

Servus.

Ich habe das BM und Swiss_Knife_include von Gestern geholt und ich denke
ich habe alles richtig gemacht.



Nicht ganz, wie auch in der Beschreibung zum Basis Modul angegeben,
gehören diese Zeilen:

|> Function OnBeforeSendingMessage(var Message:TStringlist;Servername:string;IsEmail:boolean):boolean;
|
|> Begin
|> If Not BM_PathCheck(GetCurrentDir) Then
|> Begin
|> Ado('ReloadScripts');
|> Ado('Scripting');
|> End;
|> Result := True;
|> End;

nicht in das OnBeforeSending sondern in das OnStartUp.

Cu,
Hermann Hippen.
ž' š°º€ø?žžžžž?ø€º°š 'ž
ø€º° '<http://4ds.siteboard.eu>' °º€ø
'ž '40tude-Dialog Scriptwerkstatt' ž'
ø€º°' ž ž ø€º°ššššššš°º€øšž ž '°º€ø

Ähnliche fragen