RyuLib/RyuLib for Delphi

Delphi P2P Socket Library

소스는 아래 링크에서 받으시면 됩니다.https://github.com/ryujt/SuperSocket 사용의 예제는 SuperSocket\Delphi\Samples\P2P UDP 폴더에 서버와 클라이언트를 참고하시면 됩니다. 제가 진행했었던 1:1 온라인 강의 시스템에 사용했던 소스 일부를 새로 정리해 본 것입니다. 예전 소스를 거의 무시한채 새로 만들었기 때문에 버그가 많을 수 있습니다. 이슈에 남겨주시면 틈틈히 고쳐 나가겠습니다. 기본적으로 UDP를 이용해서 P2P로 패킷을 전송하지만, P2P로 보낼 수 없는 상황이되면 TCP를 이용해서 서버를 통해 릴레이를 하게 되어 있습니다. 원래는 1:1 서비스에서 사용했지만 n:m 상황에서도 사용할 수 있도록 수정했습니다. 기본적인 로그인 처리 및 사용자 처..

RyuLib/RyuLib for Delphi 2017. 4. 5. 11:48

AsyncTask, 스래드로 비동기 실행을 하고, 결과를 메인 스래드에서 받기

자주 쓰는 형태인데, 매번 스래드 안에서 PostMessage를 날려서 사용하다보니 불편해서 유닛으로 만들었습니다. 사용법은 아래와 같습니다. procedure TfmMain.FormCreate(Sender: TObject); begin AsyncTask( // This will execute task asynchronously by new thread without blocking. procedure (AUserData:pointer) begin Sleep(1000 * 3); end, // This will execute by main thread after above code completed. procedure (AUserData:pointer) begin fmMain.Caption := 'Done..

RyuLib/RyuLib for Delphi 2016. 10. 6. 21:33

권한 상승 중인 프로그램에서 권한이 낮은 상태로 프로그램 실행시키기

권한 상승 중인 프로그램에서 권한이 낮은 상태로 프로그램을 실행시키는 방법입니다. 구글링을 통해서 주어 온 소스가 제대로 동작하지 않아서, MSDN을 오가며 약간의 삽질을 하였습니다. 저처럼 불필요한 삽질을 하시게 될 분이 있을 지 몰라서 올려봅니다. 소스는 아래 링크를 참고하시면 됩니다.https://code.google.com/p/ryulib4delphi/source/browse/trunk/XE2/CreateLowProcess.pas 사용법은 단순합니다. 위의 유닛에 있는 아래의 함수를 실행하면 됩니다.procedure CreateLowProc(ACommandLine:WideString);ACommandLine 에는 실행시킬 프로그램 파일명을 입력하시면 됩니다. 파라메터가 필요한 경우에는 붙여서 사용..

RyuLib/RyuLib for Delphi 2014. 10. 27. 12:30

Convert Enum to Java

하마티(http://www.himytv.com/) 안드로이드 버전을 만들 때, 델파이 코드 중에 열거형을 자바로 바꾸기 위해서 만든 프로그램입니다. 소스는 아래 링크를 참고하시면 됩니다. 상당히 단순한 프로그램입니다.http://goo.gl/Ek8Zt5 프로그램 동작은델파이 열거형의 소스의 일부분을 붙여 넣고, Convert 버턴을 클릭합니다.열거형의 원소들은 자바의 static으로 변경됩니다.toString() 이라는 static 메소드가 추가 됩니다. 열거형을 문자로 표현하고 싶을 때 사용합니다. 제가 델파이에서 디버깅 등을 이유로 자주 사용하는 것이라 넣어 봤습니다.델파이 소스에 있는 코멘트는 모두 제거 됩니다.열거형 원소에 인덱스를 강제로 지정하는 등의 처리는 지원하지 않습니다. [그림 1] 변경..

RyuLib/RyuLib for Delphi 2014. 10. 27. 12:21

Scanner.pas

프로그래밍 소스 코드를 스캐닝하고 싶을 때 사용 할 수 있는 유닛입니다. 스캐닝 후 공백 등의 화이트 스페이스와 코멘트는 무시하고, 특수문자(ttSpecialChar), 문자열(ttString), 숫자(ttNumber), 식별자(ttIdentifier)를 찾아 줍니다. 제가 예전에 계산기 및 프로그래밍 언어를 만들 때 사용하던 것입니다. 소스보기: http://goo.gl/Ucev3A 사용법 procedure ....; var Scanner : TScanner; Token : TToken; begin Scanner := TScanner.Create; Scanner.SetText( '소스코드...' ); repeat Token := Scanner.GetNextToken; if Token.TokenType ..

RyuLib/RyuLib for Delphi 2014. 10. 7. 00:45

소스코드에서 문자열만 검색하기

우선 전체 소스는 http://goo.gl/0dSTvu 에 있습니다. RyuLib for Delphi 저장소에 있는 라이브러리가 필요하니 전부 받으시는 것을 좋을 듯 합니다. (https://code.google.com/p/ryulib4delphi/) [그림 1] 실행 화면 웬지 이런 프로그램이 있을 거 같지만, 검색도 잘 못하는 컴맹인지라 그냥 만들어서 쓰기로 했습니다 ㅡ.ㅡa 사용법은 간단합니다. C:\> ExtractStrings.exe [Path] [File Ext] -rPath: 검색 할 경로, 생략하면 뒤에 오는 [File Ext]도 생략해야 합니다. 마음에 안드시면 소스를 수정하세요 ㅋㅋ 생략하면 현재 경로를 검색합니다.File Ext: 검색 할 확장자. *.pas 처럼 하시면 됩니다.-r ..

RyuLib/RyuLib for Delphi 2014. 10. 7. 00:18

A simple Delphi class for parallel processing.

간단한 유닛이지만 만들어 놓고 상당히 잘 활용했던 코드입니다. 이제는 델파이에서 자체적으로 지원해주기 시작하지만, 아직 XE7을 사용하지 않는 분들에게는 도움 될 듯 합니다. 병렬처리 유닛: https://code.google.com/p/ryulib4delphi/source/browse/trunk/XE2/SimpleMP.pas 사용 예제: https://code.google.com/p/ryulib4delphi/source/browse/trunk/XE2/Samples/SimpleMP 예제에는 1부터 100까지 더하기CRC32 구하기를 단순 반복과 병렬처리를 놓고 속도를 비교하기가 포함되어 있습니다. [그림 1] 예제의 실행 결과 예제의 실행 결과를 보면 속도가 3.21 배 향상 된 것으로 나오는데, 처리 ..

RyuLib/RyuLib for Delphi 2013. 11. 20. 20:47

UPnP - 포토 포워딩 설정 (Delphi 버전)

Visual C++로 작성 된 http://ryulib.tistory.com/287 소스에 대한 델파이 버전입니다. 공유기가 UPnP를 지원 할 경우, 코딩으로 포트 포워딩을 해주는 유닛입니다. [그림 1] 실행 결과 유닛 소스 http://goo.gl/PVIWTs 필요한 DLL DLL에 대한 소스 (VC++) 사용법 (예제) unit _fmMain; interface uses PortForward, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls; type TfmM..

RyuLib/RyuLib for Delphi 2013. 7. 24. 13:54

페이징

1 2