* Putting the file Queue cFile = "D:\foxprogs\biblos32\send\itest.dat" IF thisform.ot.queuefile(cFile) <> 1 * Error MESSAGEBOX("Fehler beim Stellen in die Queue!") return Endif * Datei senden thisform.ot.writedata("xmodem s softtest /test" + CHR(13)) IF thisform.ot.peekdata("eingeben",nWait, @nD) <> 1 * Error MESSAGEBOX("Fehler bei Warten auf Xmodem-Eingabe") thisform.ot.close(.F.) RETURN ELSE thisform.ot.flushdata(1,0) ENDIF thisform.ot.writedata("." + CHR(13)) IF thisform.ot.peekdata("starten",nWait, @nD) <> 1 * Error MESSAGEBOX("Fehler bei Warten auf Xmodem-Eingabe") thisform.ot.close(.F.) RETURN ELSE thisform.ot.flushdata(1,0) ENDIF *thisform.ot.transferabortkey = 27 && ESC nRet = thisform.ot.sendfile(MC_XMODEM,0) * Carrier has been lost here IF nRet == 1 * Transfer finished MESSAGEBOX("Erfolgreich übertragen") lGOOd = .T. ELSE * Transfer failed MESSAGEBOX("Senden hat nicht funktioniert!") lGood = .F. Endif