Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Ein Bereich# an einen Prozess ohne Filemap weitergeben ?
Autor: peter (---.pools.arcor-ip.net)
Datum:   28.07.16 13:43

Hallo, guten Tag.
Wie kann man bitte einen Bereich# ohne Filemap an einen Prozess weitergeben? Mein Programm arbeitet mit Filemap. Wie geht es bitte ohne Filemap und ohne Clipboard?

Danke. GRuss

 Declare h&,hd&,ende&,b_send&,b_send1&,hFileMap&,zielfenster&
 
 declare bereich#
 dim bereich#,255
 
 Proc Prozess
    parameters hd&
    declare ende&, hFileMap&
 
    declare bereich_p#
    dim bereich_p#,255
 
    windowtitle "empfang"
    window 10,10 - 350, 200
 
    hFileMap& = Create("FileMap", "Test", 300)
    hFileMap& = FileMap("Open", "Test")
 
    ende& = 0
    UserMessages $1000
    whilenot ende&
       waitinput
 
       If %UMessage = $1000
         bereich_p# = FileMap("Map", hFileMap&)
         WhileLoop 1,254,1
           print byte (bereich_p#,&Loop)
           settext hd&,str$(byte (bereich_p#,&Loop))
        endwhile
      EndIf
    endwhile
 
    FileMap("Close", hFileMap&)
    Dispose bereich_p#
  endproc
 
 proc senden
   bereich# = FileMap("Map", hFileMap&)
   PostMessage(ZielFenster&, $1000, 0, 0)
 endproc
 
 windowtitle "send"
 window 10,300-200,200
 hd& = create("Text", %hWnd, "", 20, 10, 60, 20)
 
 b_send& = Create("Button",%hWnd,"plus", 10, 65, 80, 24)
 b_send1& = Create("Button",%hWnd,"minus", 10, 90, 80, 24)
 
 h&=pExec("|Prozess",hd&)
 sleep 200
 ZielFenster& = FindWindow("empfang")
 
 hFileMap& = Create("FileMap", "Test", 300)
 hFileMap& = FileMap("Open", "Test")
 bereich# = FileMap("Map", hFileMap&)
 
 ende& = 0
 UserMessages $1000
 whilenot ende&
     waitinput
 
     If Clicked(b_send&)
       WhileLoop 1,254,1
         byte bereich#,&Loop=&loop
       endwhile
       senden
     endif
 
     If Clicked(b_send1&)
       WhileLoop 1,254,1
         byte bereich#,&loop=254-&loop
       endwhile
       senden
     endif
 EndWhile
 
 Dispose bereich#
 end
 




Nachricht bearbeitet (28.07.16 13:44)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Ein Bereich# an einen Prozess ohne Filemap weitergeben ?  Neu
peter 28.07.16 13:43 
 Re: Ein Bereich# an einen Prozess ohne Filemap weitergeben ?  Neu
Michael Wodrich 29.07.16 00:27 
 Re: Ein Bereich# an einen Prozess ohne Filemap weitergeben ?  Neu
peter 29.07.16 08:36 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org