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

Seleccione idioma Seleccione idioma
Id. de artículo: 58177
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

En esta página

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&
				

Propiedades

Id. de artículo: 58177 - Última revisión: jueves, 27 de febrero de 2014 - Versión: 1.2
Palabras clave: 
kbnosurvey kbarchive kbmt KB58177 KbMtes
Traducción automática
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

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com