Start_KorrNews_in_include.ds temp.msg Sharing-Verletzung

29/08/2010 - 14:08 von Wolfgang Bauer | Report spam
Servus.

Wie hier schon geschrieben habe ich Dialog und Korrnews in openSUSE
Linux installiert.

Um wie unter Windows KN News-out.def und News-in.def abzuarbeiten habe
ich die Start_KorrNews_include.ds aufgesplittet und nun eine
Start_KorrNews_out_include.ds und eine Start_KorrNews_in_include.ds
mit jeweils angepaßten Abschnittsnamen. Sie werden entsprechend in
OBSending und OBSaving aufgerufen.

Vorhin zeigte mir Dialog beim holen mehrerer Postings vom lokalen
Newsserver leafnode den Fehler
"C:\Programme\Korrnews\temp.msg". Sharing-Verletzung.

Das von mir modifizierte Start_KorrNews_in_include.ds

Code:
procedure Init_Start_KorrNews ( var StartForEmails : boolean;
var StartForNews : boolean;
var My_ONLY_KN_EXE : String;
var My_TempFile : String;
var CheckTime : LongInt);

begin

// -
// Configuration settings
// -

// Autor: Thomas Barghahn
// Date : 2008/05/23

// start KorrNews for emails and/or postings
// set 'true' or 'false'
StartForEmails := false;
StartForNews := true;

// path to file "ONLY_KN.EXE"
My_ONLY_KN_EXE := 'C:\Programme\KorrNews\ONLY_KN.EXE';

// path to your temporary Message-file
My_TempFile := 'C:\Programme\KorrNews\temp.msg';

// how much time gets KorrNews to check your message in seconds
CheckTime := 5; // seconds

// -
// End of configuration settings
// -

end;

// //
// - No user maintainable parts below this line -- //
// //

procedure Start_KorrNews ( var Message : TStringlist;
const IsEmail : Boolean
);
var StartForEmails : boolean;
StartForNews : boolean;
My_ONLY_KN_EXE : String;
My_TempFile : String;
CheckTime : LongInt;
Modus : String;


begin
Init_Start_KorrNews (StartForEmails, StartForNews, My_ONLY_KN_EXE, My_TempFile, CheckTime);
if ((IsEmail=true) and (StartForEmails=true)) or
((IsEmail=false) and (StartForNews=true)) then begin
CheckTime := CheckTime * 1000;
message.savetofile (My_TempFile);
if IsEmail=true then Modus := 'mails' else Modus := 'news-in';
FileExecute(0, My_ONLY_KN_EXE,'open','Type:'+Modus+' Filename:"' + My_TempFile + '"','­',1,CheckTime);
message.loadfromfile(My_TempFile);
end;
end;
§

Ist der Wert für CheckTime höher zu setzen?


Mit freundlichen Grüßen
Wolfgang Bauer
Die 40tude-Dialog FAQ http://www.wolfgang-bauer.at/4td_faq/
Das 40tude Dialog Skript - Archiv! http://kh-rademacher.de/4d/
Meine Homepage http://www.wolfgang-bauer.at/
Neue Gruppen de.comp.office-pakete.ms-office.* verfügbar
 

Lesen sie die antworten

#1 Hermann Hippen
29/08/2010 - 20:10 | Warnen spam
Wolfgang Bauer schrieb am Sonntag dem 29. August 2010 um 14:08 Uhr:

Sharing-Verletzung



Schon wieder so ein Monsterscript, wo 3 Zeilen gereicht hàtten :(
Ansonsten: <http://www.bergercity.de/linux/smbfs-vs-cifs/>

Mit freundlichen Grüßen
Hermann Hippen

"Unter Verzicht verstehen Frauen die
kurze Pause zwischen zwei Wünschen."

Ähnliche fragen