본문 바로가기

DELPHI(델파이)14

[Delphi] Cannot load data from the server : "RADStudio.json" metadata file does not exist 델파이가 설치된 경로로 이동해 GetItCmd.exe -c=useronline 입력 2020. 12. 21.
[Delphi] WaitForSingle을 이용한 쓰레드 종료 쓰레드가 돌고 있을 때 폼과 같이 종료하는 법. Var KillEvt: THandle; procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction); begin SetEvent(KillEvt); end; // 쓰레드 execute 안에 . . if WaitForSingleObject(KillEvt, 60000 * 1) = WAIT_OBJECT_0 then // 1분마다. exit; 참고 MSDN : WaitForSingleObject function (synchapi.h) - Win32 apps | Microsoft Docs WaitForSingleObject function (synchapi.h) - Win32 apps Waits unti.. 2020. 12. 4.
[Delphi] TIdMappedPortTCP를 이용한 허용된 ip만 추가하는 포트포워딩 1. 서비스 THanilnPortFowarding_Service = class(TService) CryptographicLibrary1 : TCryptographicLibrary; Codec1 : TCodec; procedure ServiceCreate(Sender : TObject); procedure ServiceStart(Sender : TService; var Started : Boolean); procedure ServiceStop(Sender : TService; var Stopped : Boolean); procedure ServicePause(Sender : TService; var Paused : Boolean); procedure ServiceContinue(Sender : TServi.. 2020. 12. 4.
[Delphi] Vcl.Themes 콤보박스로 설정 uses Vcl.Themes, Vcl.StdCtrls procedure TForm7.ComboBox1Change(Sender: TObject); begin TStyleManager.SetStyle(ComboBox1.Text); end; procedure TForm7.FormCreate(Sender : TObject); var StyleName : string; begin for StyleName in TStyleManager.StyleNames do ComboBox1.Items.Add(StyleName); ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(TStyleManager.ActiveStyle.Name); end; 2020. 12. 3.
[Delphi] 병렬 프로그래밍 1. TTask System.Threading.TTask - RAD Studio API Documentation (embarcadero.com) System.Threading.TTask - RAD Studio API Documentation From RAD Studio API Documentation Delphi TTask = class(TAbstractTask, TThreadPool.IThreadPoolWorkItem, ITask, TAbstractTask.IInternalTask) C++ class PASCALIMPLEMENTATION TTask : public TAbstractTask Properties Type Visibility Source Unit Parent class publi docwik.. 2020. 12. 3.
[델파이 - DELPHI] m4a to wav(PCM) uses Vcl.StdCtrls, ACS_Converters, SyncObjs, Activex, ACS_Classes, ACS_Wave, ACS_AAC type TForm7 = class(TForm) AdvFileNameEdit1 : TAdvFileNameEdit; AdvFileNameEdit2 : TAdvFileNameEdit; Button2 : TButton; AdvComboBox2 : TAdvComboBox; AdvComboBox3 : TAdvComboBox; AdvEdit1 : TAdvEdit; AdvComboBox4 : TAdvComboBox; Memo1 : TMemo; ProgressBar1 : TProgressBar; procedure Button2Click(Sender : TObject);.. 2020. 11. 24.
[델파이 - DELPHI] SFTP Server Service (Devart SecureBridge) 1. 서비스 폼 2. db는 firedac sqllite 사용 3. 환경설정 폼은 별도 개발 완료. Delphi SSH, SFTP, FTPS, SSL, HTTP/HTTPS, WebSocket and SignalR Сlient and Server (devart.com) unit uMain_Svr; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.SvcMgr, Vcl.Dialogs, System.Generics.Collections, ScBridge, ScSSHServer, ScSFTPServer, ScSFTPClient, uTPLb_Cryptographi.. 2020. 11. 24.
[델파이 - DELPHI] SFTP Client Class (Devart SecureBridge) unit uSftpClient; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, ComCtrls, StdCtrls, SyncObjs, // ScBridge, IdBaseComponent, IdComponent, IdIOHandler, IdIOHandlerSocket, ScIndy, ScSFTPClient, ScSFTPUtils, ScFunctions, TypInfo, ScTypes, ScSSHClient, ScSSHUtils, ScCLRClasses, ScUtils; type TSftpClient = class sFtpClient : TScSFTPClient; sIdHandler : TScIdIOHandl.. 2020. 11. 24.
[델파이 - DELPHI] HTTPS 서버 사용시 다른 포트 바인딩 주의점 uses IdSSLOpenSSL, Vcl.StdCtrls, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdServerIOHandler, IdCustomTCPServer, IdCustomHTTPServer, IdHTTPServer; type TForm7 = class(TForm) Button2 : TButton; procedure Button1Click(Sender : TObject); procedure Button2Click(Sender : TObject); procedure IdHTTPServerQuerySSLPort(APo.. 2020. 11. 24.
[델파이 - DELPHI] INDY HTTP, TCP TLS 1.2 사용 uses IdSSLOpenSSL, Vcl.StdCtrls, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP procedure TForm7.Button1Click(Sender : TObject); var IdHTTP : TIdHTTP; IdSSLIOHandlerSocketOpenSSL : TIdSSLIOHandlerSocketOpenSSL; begin IdHTTP := TIdHTTP.Create(self); IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(self).. 2020. 11. 24.
[델파이 - DELPHI] WINDOWS10 알림창 unit Unit7; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Notification, Vcl.StdCtrls; type TForm7 = class(TForm) Button1 : TButton; procedure Button1Click(Sender : TObject); private { Private declarations } public { Public declarations } end; var Form7 : TForm7; implementation {$R *.dfm.. 2020. 11. 19.
[델파이 - DELPHI] DLL 호출바 1. 정적 호출 방식 // 호출할 Function or Procedure 선언 function DecryptRecfile(KeyFile, sFilename : string; var ErrMsg : string) : boolean; external 'RecEncryptDLL.dll' name ' Decrypt_File'; {$R *.dfm} procedure TForm7.Button2Click(Sender : TObject); begin try var ss : string; if DecryptRecfile('C:\test.key', 'C:\Users\JSH\Desktop\새 폴더\암호화.wav', ss) then Memo1.Lines.Add(format('Result : %s', [True.ToString.. 2020. 11. 19.
[델파이 - DELPHI] DLL 만들기 library RecEncryptDLL; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes.. 2020. 11. 19.
Window Tail Unix Tail처럼 프로그램 로그 보는 형식의 간단한 프로그램 입니다. 사용 방법은 확인할 파일 경로 불러오고 시작 버튼 누르면 됩니다. 드래그 앤 드롭 기능이 있어 파일을 드래그해서 프로그램 위에 올리셔도 됩니다. 프로그램 소스 : https://github.com/tjdskaqks/Delphi/tree/master/Windows_Tail tjdskaqks/Delphi Delphi Project. Contribute to tjdskaqks/Delphi development by creating an account on GitHub. github.com 2020. 3. 25.

티스토리툴바