Re: COM-Initialisierung über Dialog- nicht Hauptfenster?


[ Nachträge ] [ Nachtrag schicken ] [ Profan² News Board ]

Von Richard Maurukas am 26 März, 1998 um 09:27:47:

Antwort auf: COM-Initialisierung über Dialog- nicht Hauptfenster? von Hillenbrand Chris. am 26 März, 1998 um 05:24:02:

'Hallo,
'
'wenn Du eine Profan-Version mit dem Befehl Startpaint/Endpaint hast,
'kannst Du die Ausgaben mit Startpaint Fensterhandle% im definiertem
'Fenster ausgeben.
'
'Wenn Deine Profan Version diese Befehle noch nicht hat, kannst Du
'die Ausgaben auch auf ein Fenster ausgeben. Erstelle dazu in Deinem
'Dialogfenster ein Multieditfeld. Die ankommenden Daten werden dann
'anstelle Print ".....", mit addstring "....." in
'eine Liste aufgenommen und in dieses Multieditfeld geschoben. Ist
'meiner Meinung nach sowieso sinnvoller, da man nach der Übertragung
'die Daten weiterverarbeiten kann. Bei einer Direkt-Komunikation
'können somit die ankommenden Daten und auch die Antworten festgehalten
'werden.

'mfg
'Richard

'BEISPIEL:
'---------------------------------------------------------------------------
Cls
DECLARE ComDialog%,ComInfo%,MultiedFeld%,Empfang%
DECLARE Comempfang%,ComBreak%,ComEnde%,AnkText$
DECLARE E%,ENDE%

let ComDialog%=Createdialog(%Hwnd,"Ankommende Informationen",40,100,540,300)
let ComInfo%=Createtext(Comdialog%,"",20,10,480,24)
let Multiedfeld%=Createmultiedit(ComDialog%,"",20,40,480,150)
let Comempfang%=Createbutton(ComDialog%,"Empfangen",20,200,180,24)
let combreak%=Createbutton(Comdialog%,"Übertragung Abbrechen",20,230,180,24)
Let ComEnde%=Createbutton(Comdialog%,"Beenden",220,230,180,24)

Let Ende%=0
Let e%=1
clearlist
whilenot ende%
if getfocus(Combreak%)
case Empfang%:let ENDE%=1
elseif Getfocus(ComEnde%)
Let ENDE%=1
elseif Getfocus(ComEmpfang%)
let Empfang%=1
let AnkText$=add$("Ankommender String :",str$(e%))
addstring AnkText$
movelisttoedit(Multiedfeld%)
inc e%
endif
wend
let ende%=0
Whilenot Ende%
waitinput
if getfocus(Comende%)
Let Ende%=1
endif
Wend
End
'----------------------------------------------------------------------------


Nachträge:



Nachtrag schreiben

Name:
E-Mail:

Subject:

Nachricht:

Link Adresse:
Link Titel:
Bild Adresse:


[ Nachtrag ] [ Nachtrag schreiben ] [ Profan² News Board ]