Como abrir o arquivo do Macintosh QuickBASIC dados com acesso compartilhado

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
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
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&				
MQuickB

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 58177 - Última Revisão: 02/27/2014 07:35:51 - Revisão: 1.2

  • kbnosurvey kbarchive kbmt KB58177 KbMtpt
Comentários