파란크리스마스

출처Implementing Core Audio API eventsc# - Determine changes of master audio volume as an event (volume change listener) - Stack OverflowDelphi-PRAXiS - Einzelnen Beitrag anzeigen - SetMasterVolume failure !Volume Control Demo MMDevApi.pas unit MMDevApi; interface uses Windows, ActiveX, ComObj; const CLSID_MMDeviceEnumerator : TGUID = '{BCDE0395-E52F-467C-8E3D-C4579291692E}'; IID_IMMDeviceEnumerat..

출처 : Lazarus on Raspberry Pi RaspberyPi rpi_hal Hardware Abstraction Library 라이브러리 다운로드 rudiratlos/rpi-hal 다운로드 rpi_hal 버그가 있어서 제가 수정했습니다. 압축된 소스 파일에 수정된 rpi_hal.pas 파일을 첨부했습니다. 빌드옵션 빌드 옵션으로 UseCThreads 추가가 필요합니다. 소스 unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, rpi_hal; type { TForm1 } TForm1 = class(TForm) ToggleBox1: ..

출처 : CT on MacOS X 10.11.x (El Capitan) PilotLogic - MacOS - Detail Installation PilotLogic - Setup Script Options 0. CodeTyphon 삭제 ( 기본에 설치되어 있는 경우) $ cd /usr/local $ sudo rm -Rf codetyphon 1. xcode 설치 2. xcode command tool 설치 $ xcode-select --install 3. XQuartz 설치 XQuartz 2.7.8 (For OS X 10.6.3 or later (including El Capitan) 다운로드 XQuartz 미설치 오류 4. MacPorts 설치 MacPorts OS X 10.11 El Capitan 다운..

출처 : 델마당 - 라즈베리 파이(Raspberry Pi) 보드 크로스 컴파일 환경 구축 성공(Win7 => 라즈베리) Cross-Build for RasberryPi TOPIC: How to build app for Raspberry Pi from Windows 7 Setup Cross Compile For ARM Lazarus Lazarus라는 RAD툴 입니다. 아직 설치 방법은 작성중이고, 우선 개발된 소스와 실행 파일을 올립니다. 기본언어는 Pascal 이고, 상용툴로 Delphi와 비슷합니다. Raspberry PI용 화면개발을 하실 일이 있다면 편하게 작성하실수 있습니다. 설치방법과 GPIO관련 내용은 따로 작성해서 올리겠습니다. GPIO 컴포넌트 rpi-hal 링크 CodeTyphon 다운로..

출처 : Delphi - Http POST call TStream.ReadBuffer Method TEncoding.GetString Method (TBytes) procedure TForm1.Button2Click(Sender: TObject); var tmpBuffer, Buffer: TBytes; LFileStream: TFileStream; test : String; begin // LFileStream := TFileStream.Create(Path + 'test.smi', fmOpenRead); try Memo1.Lines.BeginUpdate; // Read file into buffer SetLength(Buffer, LFileStream.Size); LFileStream.ReadBuffe..

Delphi - Http POST call procedure TForm1.Button1Click(Sender: TObject); var sl : TStringList; ResponseStream: TMemoryStream; resultBytes: TBytes; begin sl := TStringList.Create; ResponseStream := TStringStream.Create; try IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; sl.Add('id=' + Edit2.Text); IdHTTP1.Post(Edit1.Text, sl, ResponseStream); ResponseStream.Position := 0; SetL..

Delphi - Byte 관련 Tip function BytesToHex(aSource: TBytes): string; begin SetLength(Result, Length(aSource) * 2); if Length(aSource) > 0 then BinToHex(aSource[0], PChar(Result), Length(aSource)); end; procedure TForm1.Button1Click(Sender: TObject); const SetupLdrExeHeaderOffset = $01d204; A: Array[0..3] of Byte = ($EF, $BE, $AD, $DE); var HInstance: THandle; filename: String; FileStream: TFileStr..

D7 for Delphi 7 D9 for Delphi 2005 D10 for Delphi 2006 D11 for Delphi 2007 D12 for Delphi 2009 D14 for Delphi 2010 D15 for Delphi XE D16 for Delphi XE2 D17 for Delphi XE3