Перейти к содержанию
Fire Monkey от А до Я

Андрей

Пользователи
  • Постов

    8
  • Зарегистрирован

  • Посещение

Сообщения, опубликованные Андрей

  1. Вот рабочий код:

    #include <FMX.Platform.hpp>
    #include <System.IOUtils.hpp>
    
     //очистка буфера обмена
    if (TPlatformServices::Current->SupportsPlatformService(__uuidof(IFMXClipboardService)))
      {
       _di_IFMXClipboardService ClipboardService = TPlatformServices::Current->GetPlatformService(__uuidof(IFMXClipboardService));
       ClipboardService->SetClipboard(TValue::Empty);
      }
    

    Но в буфере все равно остается (empty). Как же все таки очистить полностью?

  2. Пытаюсь сделать так:

    #include <FMX.Platform.hpp>
    
    _di_IInterface Intf;
    if (TPlatformServices::Current->SupportsPlatformService(__uuidof(IFMXClipboardService), Intf))
    {
    _di_IFMXClipboardService ClipboardService = Intf;
    ClipboardService->SetClipboard(TValue::Empty);
    }
    

    Компилируется нормально. При выполнении вываливается "Access violation at address 5A73D16A, accessing adress 00000003".

  3. Здравствуйте!
    Сделать .zip архив файла и обратно получилось. Подскажите! как сделать архив ПАПКИ?

     
     

    //---------------------------------------------------------------------------
    
    #include <fmx.h>
    #pragma hdrstop
    
    #include "Uzip.h"
    #include <System.Zip.hpp>
    #include <System.IOUtils.hpp>
    //---------------------------------------------------------------------------
    #pragma package(smart_init)
    #pragma resource "*.fmx"
    TForm2 *Form2;
    //---------------------------------------------------------------------------
    __fastcall TForm2::TForm2(TComponent* Owner)
    	: TForm(Owner)
    {
    }
    //---------------------------------------------------------------------------
    void __fastcall TForm2::Button1Click(TObject *Sender)
    {
     TZipFile *ZipCompress = new TZipFile();
     ZipCompress->Open(GetCurrentDir()+"/sdcard/"+"ZipTest/"+"ZipTest.zip",zmWrite);
    
     ZipCompress->Add(System::Ioutils::TPath::Combine(System::Ioutils::TPath::GetDocumentsPath(),"test1.txt") ,"test1.txt",zcDeflate);
     ZipCompress->Add(System::Ioutils::TPath::Combine(System::Ioutils::TPath::GetDocumentsPath(),"test2.txt") ,"test2.txt",zcDeflate);
     ZipCompress->Close();
     ZipCompress->Free();
    }
    //---------------------------------------------------------------------------
    void __fastcall TForm2::Button2Click(TObject *Sender)
    {
     TZipFile *ZipDecompress = new TZipFile();
     ZipDecompress->Open(GetCurrentDir()+"/sdcard/"+"ZipTest/"+"ZipTest.zip",zmRead);
     ZipDecompress->ExtractAll(GetCurrentDir()+"/sdcard/"+"ZipTest");
     ZipDecompress->Free();
    }
    //---------------------------------------------------------------------------
    void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
    {
    Application->Terminate();
    }
    //---------------------------------------------------------------------------
    void __fastcall TForm2::FormCreate(TObject *Sender)
    {
    CreateDir(GetCurrentDir()+"/sdcard/"+"ZipTest");
    }
    //---------------------------------------------------------------------------
    
    
×
×
  • Создать...