Cómo abrir archivo de datos de QuickBASIC de Macintosh con acceso compartido

IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.

Haga clic aquí para ver el artículo original (en inglés): 58177
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Resumen
A continuación es un ejemplo de cómo abrir un archivo de datos con acceso "compartido" desde Microsoft QuickBASIC versión 1.00 para Apple Macintosh.
Más información
Este programa no funcionará en equipos con ROM de 64 KB (pre-MacPlus).

Advertencia: Debido a esta rutina cambia temporalmente el sistema operativo, uso incorrecto puede ocasionar que el sistema a bloqueo u otros efectos adversos que se produzca. No debe hacer cualquier modificaciones principales en el código y debe tener mucho cuidado en su uso.

Ejemplo de código

'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<'>> The following code demonstrates a technique for opening a'>> file with shared access. It accomplishes this by patching'>> the _OPEN OS routine to force the ioPermssn to Shared.'>> WARNING - This is not a trivial technique. If a BASIC error'>> occurs while the _OPEN trap is patched, the machine MUST'>> be rebooted. Therefore, you should keep the code between the'>> patch & unpatch to a minimum.'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<    DIM reg&(16),hpatch&, pPatch&, pOpen&    GetTrapAddress%=&HA246 : SetTrapAddress%=&HA247    ToolBox "i"'=== Find out where the current _OPEN code is    ToolBox "RQ",GetTrapAddress%,reg&(0),0,0,0    pOpen&=reg&(0)'==== Set up the patch    NewHandle 12,hpatch&    hLock hpatch& : pPatch&=PEEKL(hpatch&)    PRINT HEX$(PEEKL(hpatch&))    POKEW pPatch&,&H117C        'Move.B #4,1B(a0)    POKEW pPatch&+2,&H4         'immediate data    POKEW pPatch&+4,&H1B        'reg offset    POKEW pPatch&+6,&H4EF9      'jmp    OldOpenCode    POKEL pPatch&+8,pOpen&      'Abs.L for jmp'>>>>>>>>>>>>>>>>>>>> Start of Critical Section <<<<<<<<<<<<<<<<<'==== Install the patch for _OPEN    ToolBox "RQ",SetTrapAddress%,reg&(0),(pPatch&),0,0'=== Opens a file with shared access. It must be opened with the'=== patch.'    OPEN "Am.tmp2" FOR INPUT AS 1'==== Remove the patch    ToolBox "RQ",SetTrapAddress%,reg&(0),(pOpen&),0,0'>>>>>>>>>>>>>>>>>>>> End of Critical Section <<<<<<<<<<<<<<<<<<<'==== clean up    hunLock hpatch&    DisposeHandle hpatch&				
MQuickB

Advertencia: este artículo se tradujo automáticamente

Propiedades

Id. de artículo: 58177 - Última revisión: 02/27/2014 07:35:50 - Revisión: 1.2

  • kbnosurvey kbarchive kbmt KB58177 KbMtes
Comentarios