본문 바로가기

전체 글351

[델파이 - 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.
수중 다중 매체 통신의 흐름제어를 위한 단편화 기법 구현 2020. 11. 22.
[델파이 - 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.
[C#] 문자열에 특정 문자 개수 찾기 1. LINQ 사용 public List TaskFindText(string[] FindStrlst) { // 1개 또는 목록이 없는 경우 //if (FilelistCount new FileInfo(x)); HashSet resultList = new HashSet(); foreach (var item in FindStrlst) { var queryMatchingFiles = from file in fileInfos where file.Extension.ToLower() == ".log" let fileText = GetFileText(file.FullName) where fileText.Contains(item) select file.FullName; foreach (string filename in .. 2020. 11. 19.
[C#] ini 파일 읽기/쓰기 string iniPath = Environment.CurrentDirectory + @"\setup.ini"; // ini 파일명 [DllImport("kernel32")] private static extern long WritePrivateProfileString(string section, string key, string val, string filePath); [DllImport("kernel32")] private static extern int GetPrivateProfileString(string section, string key, string def, StringBuilder retVal, int size, string filePath); private void Window_Loade.. 2020. 11. 19.
[C#] .Net core 3.1 인코딩 한글 지원 참고 링크 : https://docs.microsoft.com/ko-kr/dotnet/api/system.text.encoding?view=netcore-3.1 //.Net Core는 기본적으로 한글을 지원 안 하기 때문에 //Encoding.RegisterProvider(CodePagesEncodingProvider.Instance); 를 넣어줘야 한다. Encoding.RegisterProvider(CodePagesEncodingProvider.Instance); foreach (var inputFilePath in Filelist) { try { using (var outputFile = new StreamWriter(new FileStream(sOutputPath, FileMode.Append, .. 2020. 11. 19.
[C#] FFMpeg.exe 사용 (m4a -> wav) FFMpeg 다운로드 : ffmpeg.org/download.html using System; using System.Diagnostics; using System.Text; namespace FFMPEG_ConsoleTest { class Program { static void Main(string[] args) { Console.WriteLine("Hello World!"); //var test = RunCmd("C:\\Users\\SEONGHYEON\\Desktop\\ffmpeg-4.3.1-2020-10-01-full_build\\bin\\ffmpeg.exe -i \"C:\\Users\\SEONGHYEON\\Desktop\\녹음\\녹음_원본\\통화 녹음 01098981057_201016_102317.. 2020. 11. 19.
[C#] CMD 사용 private static string RunCmd(string args) { ProcessStartInfo process = new ProcessStartInfo(); Process pro = new Process(); process.FileName = "cmd.exe"; process.CreateNoWindow = true; // cmd창을 띄우지 안도록 하기 process.UseShellExecute = false; process.RedirectStandardOutput = true; // cmd창에서 데이터를 가져오기 process.RedirectStandardInput = true; // cmd창으로 데이터 보내기 process.RedirectStandardError = true; // cmd창.. 2020. 11. 19.
[C#] 델파이 dll 호출 using System; using System.IO; using System.Runtime.InteropServices; namespace Delphi_Dll_Test { class Program { [DllImport("RecEncryptDLL_x64.dll", CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Auto)] public static extern bool Decrypt_FileToFile(string keyFile, string sourceFile, string Targetfile, string msg); // 델파이에서 선언한 name으로 호출 [DllImport("RecEncryptDLL_x64.dll", Callin.. 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.
아웃룩 검색 기록 삭제 프로그램 자동으로 본인 계정을 읽어 옵니다. 프로젝트 소스 : https://github.com/tjdskaqks/Delphi/tree/master/Delete_Outlook_Search tjdskaqks/Delphi Delphi Project. Contribute to tjdskaqks/Delphi development by creating an account on GitHub. github.com 아웃룩 2016 검색 기록을 삭제합니다. 언어 : 델파이 2019. 6. 21.
[03] lex.l main.c main.c #include #include #include "lex.h" extern FILE *yyin; /* input stream */ extern int yylval, /* integer value of TK_NUM */ yylen; /* length of TK_ID string */ extern char *yytext; /* point to TK_ID string */ main(argc, argv) register int argc; register char *argv[]; { int n, i; char *c; if (argc != 2) { fprintf(stderr, "usage: scan \n"); exit(1) ; } if ((yyin = fopen(argv[1], "r")) .. 2019. 4. 14.
[02] lex.c main.c main.c #include #include #include #include "lex.h" extern int get_tok(); extern int yylval, /* integer value of TK_NUM */ yylen; /* length of TK_ID string */ extern char yytext[]; /* point to TK_ID string */ extern FILE *fin; main(int argc, char *argv[]) { int n, i; char *pc; if (argc != 2) { fprintf(stderr, "usage: %s \n", argv[0]); exit(1) ; } if ((fin = fopen(argv[1], "r")) == NULL) { .. 2019. 4. 14.
15. 파일 보기 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159using System;using System.Col.. 2019. 3. 20.
14. 파일 읽기/쓰기 2019. 3. 20.

티스토리툴바