Como abrir o arquivo do Macintosh QuickBASIC dados com acesso compartilhado

Traduções deste artigo Traduções deste artigo
ID do artigo: 58177
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

Abaixo é um exemplo de como abrir um arquivo de dados com acesso "compartilhado" do Microsoft QuickBASIC versão 1.00 para o Apple Macintosh.

Mais Informações

Este programa não funcionará em máquinas com ROMs de 64 K (pré-MacPlus).

Aviso: Como essa rotina altera temporariamente o sistema operacional, uso incorreto pode causar o sistema falha ou outros efeitos adversos ocorra. Você não deve fazer quaisquer alterações principais para o código e deve ter muito cuidado no seu uso.

Exemplo 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&
				

Propriedades

ID do artigo: 58177 - Última revisão: quinta-feira, 27 de fevereiro de 2014 - Revisão: 1.2
Palavras-chave: 
kbnosurvey kbarchive kbmt KB58177 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 58177

Submeter comentários

 

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