HiAsm - ��

�� -�� sig

mybb@mybb.ru (svetaina71) — Sun, 15 Nov 2026 00:35:34 +0300

�� , �� -�� 64-�� . � �� -�� , � HiAsm �� 32-��, � �� . �� -�� 64-�� ?

��

mybb@mybb.ru (Andrew) — Thu, 12 Nov 2026 15:09:16 +0300

Knjaz2005

1. � �� . �� . �� MainForm. �� .
��: � �� . �� - ��.

2. �� FPCWebBrowser 1) �� "Navigate failed: ya.ru (HRESULT $91181168)" �� Navigate. �� url �� (�� FPC-32/64). � �� . 2) � �� "StyleXP". � �� Dark ��.

��

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Width=566
Height=396
Position=4
}
Add(FPCWebBrowser,11421626,301,119)
{
Top=38
Width=548
Height=314
Align=5
Antialiased=4
URL=""
LoaderDLL="WebView2Loader.dll"
Silent=0
DevTools=1
Theme=1
link(onNavigate,13812996:In,[(362,125)(362,97)])
link(onStatus,4295436:doEvent,[])
link(onError,9119342:doEvent,[])
link(URL,6844887:Var1,[(307,97)(202,97)])
link(Text,15912626:Text,[])
link(Theme,7376166:Count,[(335,107)(297,107)(297,226)(258,226)])
}
Add(DoData,1096429,466,133)
{
}
Add(HubEx,16152143,427,133)
{
link(onEvent,1096429:doData,[])
}
Add(Debug,9119342,371,154)
{
WEName="err"
VDName=""
LogCount=999
link(onEvent,16152143:doWork3,[(431,160)])
}
Add(Debug,4295436,371,133)
{
WEName="stat"
VDName=""
LogCount=999
link(onEvent,16152143:doWork2,[(395,139)(395,139)])
}
Add(ChildPanel,6844887,196,28)
{
link(onEvent1,11255457:doEvent,[(254,34)(254,100)(198,100)(198,125)])
}
BEGIN_SDK
Add(EditMulti,11270845,21,21)
{
EventCount=1
WorkCount=1
VarCount=1
link(doWork1,810048:doText2,[(91,27)(91,48)])
link(Var1,810048:Text,[(27,197)(160,197)])
}
Add(Panel,3732425,56,105)
{
Width=736
Height=38
Align=2
WinStyle=1
BorderWidth=0
BevelWidth=0
BevelInner=0
}
Add(ToolBar,1363921,217,105)
{
Top=18
Width=736
Align=4
WinStyle=1
Caption=0
Buttons=['Navigate'=[],'Stop'=[],'Back'=[],'Refresh'=[],'Forward'=[],'ReadText'=[],'Theme'=[]]
link(onClick,11782016:doEvent1,[])
}
Add(Edit,810048,154,35)
{
Width=590
Height=18
Text="https://ya.ru/?npr=1"
}
Add(Label,3494591,420,147)
{
Left=600
Top=5
}
Add(Hub,11782016,266,105)
{
link(onEvent1,11270845:onEvent1,[(285,111)(285,27)])
link(onEvent2,3494591:doText,[(350,118)(350,153)])
}
END_SDK
Add(LineBreak,1065083,140,28)
{
link(Out,6844887:doWork1,[])
Primary=[13812996,245,63]
}
Add(IndexToChanel,11255457,210,119)
{
Count=7
link(onEvent1,11421626:doNavigate,[])
link(onEvent2,11421626:doStop,[(272,132)(272,195)])
link(onEvent3,11421626:doBack,[])
link(onEvent4,11421626:doRefresh,[(272,146)(272,132)])
link(onEvent5,11421626:doForward,[(272,153)(272,146)])
link(onEvent6,11421626:doFromText,[(272,160)(272,153)])
link(onEvent7,7376166:doNext,[(247,167)(247,188)])
}
Add(StrList,15912626,308,42)
{
Strings=#15:<!DOCTYPE html>|16:<html lang="en">|6:<head>|26: <meta charset="UTF-8">|74: <meta name="viewport" content="width=device-width, initial-scale=1.0">|63: <title>hf-jobs - Run Workloads on Hugging Face Jobs</title>|11: <style>|11: * {|22: margin: 0;|23: padding: 0;|35: box-sizing: border-box;|9: }|8: |14: body {|116: font-family: -apple-system, BlinkMacSystemFont, 'Segoe UI', Roboto, 'Helvetica Neue', Arial, sans-serif;|29: line-height: 1.6;|24: color: #333;|32: background: #f5f5f5;|26: padding: 20px;|9: }|8: |20: .container {|30: max-width: 1200px;|27: margin: 0 auto;|30: background: white;|26: padding: 40px;|31: border-radius: 8px;|50: box-shadow: 0 2px 4px rgba(0,0,0,0.1);|9: }|8: |12: h1 {|27: color: #ffd21e;|29: background: #000;|26: padding: 20px;|43: margin: -40px -40px 30px -40px;|39: border-radius: 8px 8px 0 0;|9: }|8: |12: h2 {|27: color: #1e1e1e;|29: margin-top: 30px;|32: margin-bottom: 15px;|33: padding-bottom: 10px;|45: border-bottom: 2px solid #ffd21e;|9: }|8: |12: h3 {|24: color: #555;|29: margin-top: 20px;|32: margin-bottom: 10px;|9: }|8: |22: .description {|32: background: #f9f9f9;|26: padding: 20px;|43: border-left: 4px solid #ffd21e;|32: margin-bottom: 30px;|31: border-radius: 4px;|9: }|8: |20: .file-list {|29: list-style: none;|23: padding: 0;|9: }|8: |23: .file-list li {|26: padding: 12px;|26: margin: 8px 0;|32: background: #f9f9f9;|31: border-radius: 4px;|43: border-left: 3px solid #ffd21e;|40: transition: background 0.2s;|9: }|8: |29: .file-list li:hover {|32: background: #f0f0f0;|9: }|8: |22: .file-list a {|27: color: #0066cc;|34: text-decoration: none;|29: font-weight: 500;|27: display: block;|9: }|8: |28: .file-list a:hover {|39: text-decoration: underline;|9: }|8: |20: .file-path {|24: color: #666;|29: font-size: 0.9em;|60: font-family: 'Monaco', 'Courier New', monospace;|28: margin-top: 4px;|9: }|8: |27: .file-description {|24: color: #777;|29: font-size: 0.9em;|28: margin-top: 4px;|31: font-style: italic;|9: }|8: |19: .metadata {|32: background: #f0f0f0;|26: padding: 15px;|31: border-radius: 4px;|32: margin-bottom: 30px;|9: }|8: |21: .metadata p {|26: margin: 5px 0;|9: }|8: |26: .metadata strong {|24: color: #333;|9: }|8: |18: .section {|32: margin-bottom: 40px;|9: }|8: |14: code {|32: background: #f4f4f4;|29: padding: 2px 6px;|31: border-radius: 3px;|60: font-family: 'Monaco', 'Courier New', monospace;|29: font-size: 0.9em;|9: }|12: </style>|7:</head>|6:<body>|27: <div class="container">|38: <h1>Agent Skill : hf-jobs</h1>|8: |33: <div class="description">|74: <p><strong>Run any workload on Hugging Face Jobs.</strong></p>|235: <p>Use this skill when you want to run GPU/CPU workloads (batch inference, synthetic data generation, dataset stats, experiments) on Hugging Face Jobs, with correct token handling and result persistence back to the Hub.</p>|14: </div>|8: |30: <div class="metadata">|55: <p><strong>Skill Name:</strong> hf-jobs</p>|97: <p><strong>Main Documentation:</strong> <a href="jobs/SKILL.md">jobs/SKILL.md</a></p>|81: <p><strong>Scripts Directory:</strong> <code>jobs/scripts/</code></p>|87: <p><strong>References Directory:</strong> <code>jobs/references/</code></p>|14: </div>|8: |29: <div class="section">|29: <h2>Overview</h2>|248: <p>This skill focuses on running real workloads via Hugging Face Jobs. It includes ready-to-run UV scripts and guides for authentication (HF tokens), secrets vs env vars, timeouts, hardware selection, and pushing results to the Hub.</p>|14: </div>|0:|29: <div class="section">|39: <h2>Core Documentation</h2>|34: <ul class="file-list">|20: <li>|56: <a href="jobs/SKILL.md">SKILL.md</a>|62: <div class="file-path">jobs/SKILL.md</div>|180: <div class="file-description">Complete skill documentation (how to submit jobs, tokens/secrets, timeouts, persistence, and how to use the bundled scripts)</div>|21: </li>|17: </ul>|14: </div>|0:|29: <div class="section">|31: <h2>References</h2>|34: <ul class="file-list">|20: <li>|79: <a href="jobs/references/token_usage.md">token_usage.md</a>|79: <div class="file-path">jobs/references/token_usage.md</div>|151: <div class="file-description">Token best practices: secrets vs env, permissions, common errors (401/403), and secure patterns</div>|21: </li>|20: <li>|77: <a href="jobs/references/hub_saving.md">hub_saving.md</a>|78: <div class="file-path">jobs/references/hub_saving.md</div>|144: <div class="file-description">How to persist results: push datasets/models/files to the Hub (ephemeral job filesystem)</div>|21: </li>|20: <li>|85: <a href="jobs/references/hardware_guide.md">hardware_guide.md</a>|82: <div class="file-path">jobs/references/hardware_guide.md</div>|107: <div class="file-description">Flavor selection guidance for CPU/GPU/TPU workloads</div>|21: </li>|20: <li>|87: <a href="jobs/references/troubleshooting.md">troubleshooting.md</a>|83: <div class="file-path">jobs/references/troubleshooting.md</div>|122: <div class="file-description">Common failure modes (timeouts, missing deps, OOM, auth) and fixes</div>|21: </li>|17: </ul>|14: </div>|0:|29: <div class="section">|28: <h2>Scripts</h2>|34: <ul class="file-list">|20: <li>|90: <a href="jobs/scripts/generate-responses.py">generate-responses.py</a>|83: <div class="file-path">jobs/scripts/generate-responses.py</div>|163: <div class="file-description">vLLM batch generation: load prompts/messages from a dataset, generate responses, push dataset + card to Hub</div>|21: </li>|20: <li>|88: <a href="jobs/scripts/cot-self-instruct.py">cot-self-instruct.py</a>|82: <div class="file-path">jobs/scripts/cot-self-instruct.py</div>|167: <div class="file-description">CoT Self-Instruct synthetic data generation (reasoning/instruction) + optional filtering, pushes dataset + card</div>|21: </li>|20: <li>|82: <a href="jobs/scripts/finepdfs-stats.py">finepdfs-stats.py</a>|79: <div class="file-path">jobs/scripts/finepdfs-stats.py</div>|163: <div class="file-description">Polars streaming stats over Hub parquet (finepdfs-edu); optional upload of computed stats to a dataset repo</div>|21: </li>|17: </ul>|14: </div>|10: </div>|7:</body>|7:</html>|0:|0:|0:|0:|
}
Add(StyleXP,4011069,28,49)
{
}
Add(CounterEx,7376166,252,182)
{
Min=1
Max=2
Default=1
link(onNext,11421626:doTheme,[])
}

TabHub v2.0

mybb@mybb.ru (andrestudio) — Thu, 12 Nov 2026 11:23:02 +0300

Andrew �� :)

�� FTPServer

mybb@mybb.ru (andrestudio) — Tue, 10 Nov 2026 09:21:48 +0300

�� . �� KOL
�� . �� .

��:

program KOLFTPFullFeatured;                                                                                    
                                                                                                               
uses                                                                                                           
  Windows, KOL, Messages, SysUtils, Classes;                                                                   
                                                                                                               
type                                                                                                           
  TFTPSessionState = record                                                                                    
    User: string;                                                                                              
    Authenticated: Boolean;                                                                                    
    CurrentDir: string;                                                                                        
    TransferType: Char;                                                                                        
    // ��� ��������� ������ (PORT)                                                                             
    DataIP: string;                                                                                            
    DataPort: Word;                                                                                            
    // ��� ���������� ������ (PASV)                                                                            
    PASVSocket: PSocket;                                                                                       
  end;                                                                                                         
                                                                                                               
  TWorkerThread = class(PThread)                                                                               
  private                                                                                                      
    FCtrlSock: PSocket;                                                                                        
    FLogMemo: PControl;                                                                                        
    FState: TFTPSessionState;                                                                                  
    procedure SyncLog(const Msg: string);                                                                      
    procedure SendResponse(const Text: string);                                                                
    function BuildFullPath(const FileName: string): string;                                                    
    function NormalizeFTPPath(const Path: string): string;                                                     
    procedure CreateDataChannel(out DataSock: PSocket);                                                        
    procedure HandlePORT(const Param: string);                                                                 
    procedure HandlePASV(out Port: Word; out IP: string);                                                      
    procedure HandleLIST;                                                                                      
    procedure HandleRETR(const FileName: string);                                                              
    procedure HandleSTOR(const FileName: string);                                                              
    procedure HandleDELE(const FileName: string);                                                              
    procedure HandleMKD(const DirName: string);                                                                
    procedure HandleRMD(const DirName: string);                                                                
    procedure HandleRNFR(const FileName: string);                                                              
    procedure HandleRNTO(const FileName: string);                                                              
    procedure HandleSIZE(const FileName: string);                                                              
  protected                                                                                                    
    procedure Execute; override;                                                                               
  public                                                                                                       
    constructor Create(ClientSock: PSocket; LogTarget: PControl);                                              
  end;                                                                                                         
                                                                                                               
var                                                                                                            
  Form, LogMemo: PControl;                                                                                     
  Listener: PSocket;                                                                                           
  Addr: TSockAddrIn;                                                                                           
                                                                                                               
{ ��������������� ������� }                                                                                    
                                                                                                               
function NormalizeFTPPath(const Base, Path: string): string;                                                   
var                                                                                                            
  Parts, Stack: KOL.PStrList;                                                                                  
  i: Integer;                                                                                                  
begin                                                                                                          
  Result := Base;                                                                                              
  if Path = '' then Exit;                                                                                      
  if Path[1] = '/' then Result := '/';                                                                         
                                                                                                               
  Parts := NewStrList;                                                                                         
  Parts.StrictDelimiter := True;                                                                               
  Parts.Delimiter := '/';                                                                                      
  Parts.DelimitedText := Path;                                                                                 
                                                                                                               
  Stack := NewStrList;                                                                                         
  for i := 0 to Parts.Count - 1 do                                                                             
  begin                                                                                                        
    if Parts[i] = '..' then                                                                                    
    begin                                                                                                      
      if Stack.Count > 0 then Stack.Delete(Stack.Count - 1);                                                   
    end                                                                                                        
    else if (Parts[i] <> '') and (Parts[i] <> '.') then                                                        
      Stack.Add(Parts[i]);                                                                                     
  end;                                                                                                         
                                                                                                               
  if (Result = '/') and (Stack.Count > 0) then                                                                 
    Result := Result + Stack.StrictCommaText                                                                   
  else if (Result <> '/') and (Stack.Count > 0) then                                                           
    Result := IncludeTrailingPathDelimiter(Result) + Stack.StrictCommaText;                                    
                                                                                                               
  Parts.Free;                                                                                                  
  Stack.Free;                                                                                                  
end;                                                                                                           
                                                                                                               
function TWorkerThread.BuildFullPath(const FileName: string): string;                                          
begin                                                                                                          
  if FileName = '' then Exit('');                                                                              
  if FileName[1] = '/' then                                                                                    
    Result := NormalizeFTPPath('/', FileName)                                                                  
  else                                                                                                         
    Result := NormalizeFTPPath(FState.CurrentDir, FileName);                                                   
end;                                                                                                           
                                                                                                               
{ TWorkerThread }                                                                                              
                                                                                                               
constructor TWorkerThread.Create(ClientSock: PSocket; LogTarget: PControl);                                    
begin                                                                                                          
  inherited Create(False);                                                                                     
  FreeOnTerminate := True;                                                                                     
  FCtrlSock := ClientSock;                                                                                     
  FLogMemo := LogTarget;                                                                                       
  FState.Authenticated := False;                                                                               
  FState.CurrentDir := '/';                                                                                    
  FState.TransferType := 'A';                                                                                  
  FState.DataPort := 0;                                                                                        
  FState.PASVSocket := nil;                                                                                    
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.SyncLog(const Msg: string);                                                            
begin                                                                                                          
  if FLogMemo <> nil then                                                                                      
    FLogMemo.Add('T' + IntToStr(ThreadID) + ': ' + Msg);                                                       
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.SendResponse(const Text: string);                                                      
begin                                                                                                          
  try                                                                                                          
    FCtrlSock.SendBuf(PAnsiChar(AnsiString(Text))^, Length(Text));                                             
  except                                                                                                       
  end;                                                                                                         
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.HandlePORT(const Param: string);                                                       
var                                                                                                            
  Parts: KOL.PStrList;                                                                                         
  IPStr: string;                                                                                               
  P1, P2: Integer;                                                                                             
begin                                                                                                          
  Parts := NewStrList;                                                                                         
  Parts.CommaText := StringReplace(Param, ',', '.', [rfReplaceAll]);                                           
  if Parts.Count = 6 then                                                                                      
  begin                                                                                                        
    IPStr := Parts.Items[0] + '.' + Parts.Items[1] + '.' + Parts.Items[2] + '.' + Parts.Items[3];              
    P1 := StrToIntDef(Parts.Items[4], 0);                                                                      
    P2 := StrToIntDef(Parts.Items[5], 0);                                                                      
    FState.DataIP := IPStr;                                                                                    
    FState.DataPort := P1 * 256 + P2;                                                                          
    SendResponse('200 PORT command successful.' + #13#10);                                                     
  end                                                                                                          
  else                                                                                                         
    SendResponse('501 Syntax error in parameters.' + #13#10);                                                  
  Parts.Free;                                                                                                  
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.HandlePASV(out Port: Word; out IP: string);                                            
var                                                                                                            
  DataSock: PSocket;                                                                                           
  DataAddr: TSockAddrIn;                                                                                       
  LocalIP: array[0..15] of Char;                                                                               
begin                                                                                                          
  if FState.PASVSocket <> nil then FreeAndNil(FState.PASVSocket);                                              
                                                                                                               
  FState.PASVSocket := NewSocket;                                                                              
  FState.PASVSocket.SetReuseAddr(True);                                                                        
                                                                                                               
  Port := 50000;                                                                                               
  repeat                                                                                                       
    DataAddr.sin_family := AF_INET;                                                                            
    DataAddr.sin_port := htons(Port);                                                                          
    DataAddr.sin_addr.S_addr := INADDR_ANY;                                                                    
    if FState.PASVSocket.Bind(DataAddr) = 0 then Break;                                                        
    Inc(Port);                                                                                                 
  until Port > 50100;                                                                                          
                                                                                                               
  if FState.PASVSocket.Listen(1) = SOCKET_ERROR then                                                           
  begin                                                                                                        
    Port := 0;                                                                                                 
    FreeAndNil(FState.PASVSocket);                                                                             
    Exit;                                                                                                      
  end;                                                                                                         
                                                                                                               
  gethostname(LocalIP, SizeOf(LocalIP));                                                                       
  IP := LocalIP;                                                                                               
  SyncLog('PASV listening on ' + IP + ':' + IntToStr(Port));                                                   
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.CreateDataChannel(out DataSock: PSocket);                                              
var                                                                                                            
  DataAddr: TSockAddrIn;                                                                                       
begin                                                                                                          
  if (FState.DataPort > 0) and (FState.DataIP <> '') then                                                      
  begin                                                                                                        
    // �������� ����� (PORT)                                                                                   
    DataSock := NewSocket;                                                                                     
    DataAddr.sin_family := AF_INET;                                                                            
    DataAddr.sin_port := htons(FState.DataPort);                                                               
    DataAddr.sin_addr.S_addr := inet_addr(PAnsiChar(AnsiString(FState.DataIP)));                               
    if DataSock.Connect(DataAddr) = SOCKET_ERROR then                                                          
    begin                                                                                                      
      SendResponse('425 Can't open data connection.' + #13#10);                                                
      DataSock.Free;                                                                                           
      DataSock := nil;                                                                                         
    end;                                                                                                       
  end                                                                                                          
  else if FState.PASVSocket <> nil then                                                                        
  begin                                                                                                        
    // ��������� ����� (PASV)                                                                                  
    DataSock := FState.PASVSocket.Accept;                                                                      
    // ����� ������������� ����� �������, �� ������ �� �����                                                   
    FreeAndNil(FState.PASVSocket);                                                                             
  end                                                                                                          
  else                                                                                                         
  begin                                                                                                        
    SendResponse('425 Use PORT or PASV first.' + #13#10);                                                      
    DataSock := nil;                                                                                           
  end;                                                                                                         
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.HandleLIST;                                                                            
var                                                                                                            
  DataSock: PSocket;                                                                                           
  SearchRec: TSearchRec;                                                                                       
  ListStr, FullPath: string;                                                                                   
begin                                                                                                          
  CreateDataChannel(DataSock);                                                                                 
  if DataSock = nil then Exit;                                                                                 
                                                                                                               
  SendResponse('150 Opening ASCII mode data connection for file list.' + #13#10);                              
                                                                                                               
  ListStr := '';                                                                                               
  FullPath := IncludeTrailingPathDelimiter(FState.CurrentDir);                                                 
  if FindFirst(FullPath + '*.*', faAnyFile, SearchRec) = 0 then                                                
  begin                                                                                                        
    repeat                                                                                                     
      if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then                                             
      begin                                                                                                    
        if (SearchRec.Attr and faDirectory) > 0 then                                                           
          ListStr := ListStr + 'drwxr-xr-x   1 owner    group         0 ' +                                    
            FormatDateTime('mmm dd hh:nn', FileDateToDateTime(SearchRec.Time)) + ' ' + SearchRec.Name + #13#10 
        else                                                                                                   
          ListStr := ListStr + '-rw-r--r--   1 owner    group   ' +                                            
            IntToStr(SearchRec.Size) + ' ' +                                                                   
            FormatDateTime('mmm dd hh:nn', FileDateToDateTime(SearchRec.Time)) + ' ' + SearchRec.Name + #13#10;
      end;                                                                                                     
    until FindNext(SearchRec) <> 0;                                                                            
    FindClose(SearchRec);                                                                                      
  end;                                                                                                         
                                                                                                               
  DataSock.SendBuf(PAnsiChar(AnsiString(ListStr))^, Length(ListStr));                                          
  DataSock.Free;                                                                                               
  SendResponse('226 Directory send OK.' + #13#10);                                                             
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.HandleRETR(const FileName: string);                                                    
var                                                                                                            
  DataSock: PSocket;                                                                                           
  FS: TFileStream;                                                                                             
  Buffer: array[0..4095] of Byte;                                                                              
  ReadBytes: Integer;                                                                                          
  FullPath: string;                                                                                            
begin                                                                                                          
  FullPath := BuildFullPath(FileName);                                                                         
  if not FileExists(FullPath) then                                                                             
  begin                                                                                                        
    SendResponse('550 File not found.' + #13#10);                                                              
    Exit;                                                                                                      
  end;                                                                                                         
                                                                                                               
  CreateDataChannel(DataSock);                                                                                 
  if DataSock = nil then Exit;                                                                                 
                                                                                                               
  SendResponse('150 Opening BINARY mode data connection for ' + FileName + ' (' +                              
    IntToStr(GetFileSize(FullPath)) + ' bytes).' + #13#10);                                                    
                                                                                                               
  FS := TFileStream.Create(FullPath, fmOpenRead or fmShareDenyNone);                                           
  try                                                                                                          
    repeat                                                                                                     
      ReadBytes := FS.Read(Buffer, SizeOf(Buffer));                                                            
      if ReadBytes > 0 then                                                                                    
        DataSock.SendBuf(Buffer, ReadBytes);                                                                   
    until ReadBytes = 0;                                                                                       
  finally                                                                                                      
    FS.Free;                                                                                                   
    DataSock.Free;                                                                                             
  end;                                                                                                         
  SendResponse('226 Transfer complete.' + #13#10);                                                             
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.HandleSTOR(const FileName: string);                                                    
var                                                                                                            
  DataSock: PSocket;                                                                                           
  FS: TFileStream;                                                                                             
  Buffer: array[0..4095] of Byte;                                                                              
  ReadBytes: Integer;                                                                                          
  FullPath: string;                                                                                            
begin                                                                                                          
  FullPath := BuildFullPath(FileName);                                                                         
                                                                                                               
  CreateDataChannel(DataSock);                                                                                 
  if DataSock = nil then Exit;                                                                                 
                                                                                                               
  SendResponse('150 Opening BINARY mode data connection for ' + FileName + '.' + #13#10);                      
                                                                                                               
  FS := TFileStream.Create(FullPath, fmCreate);                                                                
  try                                                                                                          
    repeat                                                                                                     
      ReadBytes := DataSock.RecvBuf(Buffer, SizeOf(Buffer));                                                   
      if ReadBytes > 0 then                                                                                    
        FS.WriteBuffer(Buffer, ReadBytes);                                                                     
    until ReadBytes = 0;                                                                                       
  finally                                                                                                      
    FS.Free;                                                                                                   
    DataSock.Free;                                                                                             
  end;                                                                                                         
  SendResponse('226 Transfer complete.' + #13#10);                                                             
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.HandleDELE(const FileName: string);                                                    
var                                                                                                            
  FullPath: string;                                                                                            
begin                                                                                                          
  FullPath := BuildFullPath(FileName);                                                                         
  if not FileExists(FullPath) then                                                                             
  begin                                                                                                        
    SendResponse('550 File does not exist.' + #13#10);                                                         
    Exit;                                                                                                      
  end;                                                                                                         
  if DeleteFile(FullPath) then                                                                                 
    SendResponse('250 Delete operation successful.' + #13#10)                                                  
  else                                                                                                         
    SendResponse('550 Delete operation failed.' + #13#10);                                                     
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.HandleMKD(const DirName: string);                                                      
var                                                                                                            
  FullPath: string;                                                                                            
begin                                                                                                          
  FullPath := BuildFullPath(DirName);                                                                          
  if CreateDir(FullPath) then                                                                                  
    SendResponse('257 "' + FullPath + '" directory created.' + #13#10)                                         
  else                                                                                                         
    SendResponse('550 Create directory operation failed.' + #13#10);                                           
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.HandleRMD(const DirName: string);                                                      
var                                                                                                            
  FullPath: string;                                                                                            
begin                                                                                                          
  FullPath := BuildFullPath(DirName);                                                                          
  if RemoveDir(FullPath) then                                                                                  
    SendResponse('250 Remove directory operation successful.' + #13#10)                                        
  else                                                                                                         
    SendResponse('550 Remove directory operation failed.' + #13#10);                                           
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.HandleRNFR(const FileName: string);                                                    
var                                                                                                            
  FullPath: string;                                                                                            
begin                                                                                                          
  FullPath := BuildFullPath(FileName);                                                                         
  if FileExists(FullPath) or DirectoryExists(FullPath) then                                                    
  begin                                                                                                        
    // � �������� ������� ��� ����� ��������� � ���� FState.RenameFrom                                         
    SendResponse('350 Ready for RNTO.' + #13#10);                                                              
  end                                                                                                          
  else                                                                                                         
    SendResponse('550 File not found.' + #13#10);                                                              
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.HandleRNTO(const FileName: string);                                                    
begin                                                                                                          
  // ����� ������ ���� ������ �������������� �� ������������ � RNFR ����                                       
  // ��� ������� ������ �������� 250                                                                           
  SendResponse('250 Rename successful.' + #13#10);                                                             
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.HandleSIZE(const FileName: string);                                                    
var                                                                                                            
  FullPath: string;                                                                                            
begin                                                                                                          
  FullPath := BuildFullPath(FileName);                                                                         
  if FileExists(FullPath) then                                                                                 
    SendResponse('213 ' + IntToStr(GetFileSize(FullPath)) + #13#10)                                            
  else                                                                                                         
    SendResponse('550 File not found.' + #13#10);                                                              
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.ProcessCommand(const CmdLine: string);                                                 
var                                                                                                            
  Cmd, Param: string;                                                                                          
  SpacePos: Integer;                                                                                           
begin                                                                                                          
  SyncLog('Recv: ' + CmdLine);                                                                                 
  SpacePos := Pos(' ', CmdLine);                                                                               
  if SpacePos > 0 then                                                                                         
  begin                                                                                                        
    Cmd := UpperCase(Copy(CmdLine, 1, SpacePos - 1));                                                          
    Param := Copy(CmdLine, SpacePos + 1, Length(CmdLine));                                                     
  end                                                                                                          
  else                                                                                                         
  begin                                                                                                        
    Cmd := UpperCase(CmdLine);                                                                                 
    Param := '';                                                                                               
  end;                                                                                                         
                                                                                                               
  if not FState.Authenticated then                                                                             
  begin                                                                                                        
    if Cmd = 'USER' then                                                                                       
    begin                                                                                                      
      FState.User := Param;                                                                                    
      SendResponse('331 Password required for ' + FState.User + '.' + #13#10);                                 
    end                                                                                                        
    else if Cmd = 'PASS' then                                                                                  
    begin                                                                                                      
      FState.Authenticated := True;                                                                            
      SendResponse('230 User ' + FState.User + ' logged in.' + #13#10);                                        
    end                                                                                                        
    else                                                                                                       
      SendResponse('530 Not logged in.' + #13#10);                                                             
    Exit;                                                                                                      
  end;                                                                                                         
                                                                                                               
  if Cmd = 'SYST' then SendResponse('215 UNIX Type: L8' + #13#10)                                              
  else if Cmd = 'FEAT' then                                                                                    
    SendResponse('211-Features:' + #13#10 + ' PASV' + #13#10 + ' SIZE' + #13#10 + '211 End' + #13#10)          
  else if Cmd = 'PWD' then SendResponse('257 "' + FState.CurrentDir + '" is the current directory.' + #13#10)  
  else if Cmd = 'TYPE' then                                                                                    
  begin                                                                                                        
    FState.TransferType := Param[1];                                                                           
    SendResponse('200 Type set to ' + FState.TransferType + '.' + #13#10);                                     
  end                                                                                                          
  else if Cmd = 'CWD' then                                                                                     
  begin                                                                                                        
    FState.CurrentDir := NormalizeFTPPath(FState.CurrentDir, Param);                                           
    SendResponse('250 Directory successfully changed.' + #13#10);                                              
  end                                                                                                          
  else if Cmd = 'CDUP' then                                                                                    
  begin                                                                                                        
    FState.CurrentDir := NormalizeFTPPath(FState.CurrentDir, '..');                                            
    SendResponse('250 Directory successfully changed.' + #13#10);                                              
  end                                                                                                          
  else if Cmd = 'PORT' then HandlePORT(Param)                                                                  
  else if Cmd = 'PASV' then                                                                                    
  begin                                                                                                        
    var P: Word; var I: string;                                                                                
    HandlePASV(P, I);                                                                                          
    SendResponse('227 Entering Passive Mode (' +                                                               
      StringReplace(I, '.', ',', [rfReplaceAll]) + ',' +                                                       
      IntToStr(P div 256) + ',' + IntToStr(P mod 256) + ').' + #13#10);                                        
  end                                                                                                          
  else if Cmd = 'LIST' then HandleLIST                                                                         
  else if Cmd = 'RETR' then HandleRETR(Param)                                                                  
  else if Cmd = 'STOR' then HandleSTOR(Param)                                                                  
  else if Cmd = 'DELE' then HandleDELE(Param)                                                                  
  else if Cmd = 'MKD' then HandleMKD(Param)                                                                    
  else if Cmd = 'RMD' then HandleRMD(Param)                                                                    
  else if Cmd = 'RNFR' then HandleRNFR(Param)                                                                  
  else if Cmd = 'RNTO' then HandleRNTO(Param)                                                                  
  else if Cmd = 'SIZE' then HandleSIZE(Param)                                                                  
  else if Cmd = 'QUIT' then                                                                                    
  begin                                                                                                        
    SendResponse('221 Goodbye.' + #13#10);                                                                     
    FCtrlSock.CloseSocket;                                                                                     
    Terminate;                                                                                                 
  end                                                                                                          
  else                                                                                                         
    SendResponse('502 Command not implemented.' + #13#10);                                                     
end;                                                                                                           
                                                                                                               
procedure TWorkerThread.Execute;                                                                               
var                                                                                                            
  Buffer: array[0..1023] of Char;                                                                              
  Received: Integer;                                                                                           
begin                                                                                                          
  SyncLog('Client ' + FCtrlSock.PeerIP + ' connected.');                                                       
  SendResponse('220-Full-Featured KOL FTP Server' + #13#10);                                                   
  SendResponse('220 Ready.' + #13#10);                                                                         
                                                                                                               
  while not Terminated and FCtrlSock.Connected do                                                              
  begin                                                                                                        
    Received := FCtrlSock.RecvBuf(Buffer, SizeOf(Buffer) - 1);                                                 
    if Received <= 0 then Break;                                                                               
    Buffer[Received] := #0;                                                                                    
    ProcessCommand(string(Buffer));                                                                            
  end;                                                                                                         
                                                                                                               
  // ������� �������� ��� �����������                                                                          
  if FState.PASVSocket <> nil then FreeAndNil(FState.PASVSocket);                                              
  SyncLog('Client ' + FCtrlSock.PeerIP + ' disconnected.');                                                    
  FCtrlSock.Free;                                                                                              
end;                                                                                                           
                                                                                                               
begin                                                                                                          
  Application.Initialize;                                                                                      
  Form := NewForm(Applet, 'Full-Featured KOL FTP Server');                                                     
  Form.SetSize(600, 500);                                                                                      
  LogMemo := NewMemo(Form, [moReadOnly, moWantTab]);                                                           
  LogMemo.Align(caClient);                                                                                     
                                                                                                               
  Listener := NewSocket;                                                                                       
  Addr.sin_family := AF_INET;                                                                                  
  Addr.sin_port := htons(2121);                                                                                
  Addr.sin_addr.S_addr := INADDR_ANY;                                                                          
                                                                                                               
  if Listener.Bind(Addr) = SOCKET_ERROR then                                                                   
  begin                                                                                                        
    LogMemo.Add('Error binding to port 2121.');                                                                
    Exit;                                                                                                      
  end;                                                                                                         
  if Listener.Listen(10) = SOCKET_ERROR then                                                                   
  begin                                                                                                        
    LogMemo.Add('Error listening.');                                                                           
    Exit;                                                                                                      
  end;                                                                                                         
                                                                                                               
  LogMemo.Add('Full-Featured FTP Server started on port 2121.');                                               
                                                                                                               
  while True do                                                                                                
  begin                                                                                                        
    var ClientSock := Listener.Accept;                                                                         
    if ClientSock <> nil then                                                                                  
      TWorkerThread.Create(ClientSock, LogMemo);                                                               
    Application.ProcessMessages;                                                                               
  end;                                                                                                         
end.

�� :

��, �� . � �� KOL �� PThread.

�� KOL (� � VCL/LCL): �� (� �� LogMemo). �� , �� Access Violation. �� Synchronize.

�� . �� .

��, �� . � �� , �� FTP: ��, �� (PWD, CWD), �� (LIST), �� (TYPE) � �� (RETR).

�� Delphi (SysUtils, Classes), �� KOL �� Windows API � �� RTL (Run-Time Library) �� .

�� :

�� : �� TFTPSessionState, �� , �� , �� .
�� (PASV): �� 50000–50100 � �� . �� NAT � ��.
�� : �� LIST �� drwxr-xr-x (�� FileZilla � Total Commander).
�� : �� NormalizeFTPPath �� .. � /.

MirrorFolders

mybb@mybb.ru (envoy_sky) — Mon, 02 Nov 2026 05:47:05 +0300

KOLMirrorFolders.dcu
�� .

ShellBrowser

mybb@mybb.ru (andrestudio) — Tue, 28 Jul 2026 06:02:45 +0300

�� :)
�� , �� FPC �� :)
�� . �� 2000 �� .
� �� Delphi ��.
�� GunSmoker(a)
��
�� . �� .
� �� ,
�� SysListWiew �� Windows �� .

��

mybb@mybb.ru (andrestudio) — Thu, 16 Jul 2026 11:11:50 +0300

�� , https://ip76.ru/ �� .
�� .
�� HiAsm

�� WI-FI

mybb@mybb.ru (Andrew) — Wed, 08 Jul 2026 10:53:58 +0300

�� WIFI, � �� c �� USB.
�� : AdminAppEx (https://cloud.mail.ru/public/7eps/VteCRLHkP)

��: https://cloud.mail.ru/public/d2Tb/u9v7ubifP

customver - ��

mybb@mybb.ru (3042) — Sat, 04 Jul 2026 15:40:26 +0300

�� , �� .
�� :

��:

Add(hiPlugs,2953706,175,245)
{
 link(onCommand,11735780:doCase,[])
}
Add(Case,11735780,224,245)
{
 Value=String(build)
 link(onNextCase,9384841:doCase,[])
 link(onTrue,4447036:doEvent2,[(269,258)(269,307)])
 AddHint(-14,-31,47,13,Value)
}
Add(Case,9384841,280,245)
{
 Value=String(run)
 link(onTrue,4447036:doEvent1,[(320,258)(320,300)])
 AddHint(-3,-30,40,13,Value)
}
Add(Hub,4447036,329,294)
{
 InCount=2
 link(onEvent1,11339124:doPart,[])
}
Add(FilePartElm,11339124,371,294)
{
 Mode=0
 Point(Part)
 link(onPart,8338269:doStrCat,[])
 link(FileName,7815630:Var,[])
}
Add(StrCat,8338269,413,294)
{
 Str2="sha_res.rc"
 link(onStrCat,4380707:doFileExists,[])
}
Add(LineBreak,13812072,175,294)
{
 Type=1
 link(Data,2953706:FileName,[])
 Primary=[7815630,196,-28]
}
Add(FileTools,4380707,462,273)
{
 link(onEnd,10608598:doCase,[])
}
Add(Case,10608598,504,273)
{
 Value=Integer(1)
 link(onTrue,7930170:doStrCatDlm,[])
}
Add(Dir,2728772,581,231)
{
}
Add(WinExec,11667179,700,266)
{
 RunEvent=1
 Point(doConsoleExec)
 Point(onConsoleResult)
 link(FileName,15696064:Var,[])
 link(Params,5753427:FString,[(713,254)(671,254)(671,324)(629,324)])
 link(onConsoleResult,6520271:doMessage,[])
}
Add(FormatStr,5753427,623,280)
{
 DataCount=1
 Mask="/fo "%1sha_res.res" "%1sha_res.rc""
 Point(FString)
 link(onFString,10402115:doEvent1,[])
 link(Str1,8405712:Var,[])
}
Add(LineBreak,4882788,371,343)
{
 Caption="fld"
 Type=1
 link(Data,11339124:Part,[])
 Primary=[8405712,252,-91]
}
Add(LineBreak,4301616,567,322)
{
 Type=1
 link(Data,7930170:Result,[])
 Primary=[15696064,133,-91]
}
Add(StrCatDelim,7930170,567,280)
{
 Str1="""
 Str2="compiler\GoRC.exe""
 Point(Delimiter)
 link(onStrCatDlm,5753427:doString,[])
 link(Delimiter,2728772:CurrentDir,[])
 AddHint(-79,-73,113,13,Str2)
}
Add(Hub,10402115,665,280)
{
 link(onEvent1,11667179:doConsoleExec,[])
}
Add(Message,6520271,756,280)
{
}

�� , �� , �� sha_res.rc � �� (�� ):

SHA_RES 200 "C:\Program Files (x86)\HiAsm_AltBuild\temp\t\Project5.sha"

� � �� - IC � �� {$R sha_res.res}
� �� exe-��. �� , �� . - �� , �� .

Mod BitmapArray (doAdd,doInseret,doDelete)

mybb@mybb.ru (andrestudio) — Tue, 30 Jun 2026 13:53:49 +0300

3042 �� Data � ��,
�� . � �� .
�� .
�� HiAsm ��
� �� .

ScreenToPNG

mybb@mybb.ru (3042) — Sat, 27 Jun 2026 16:55:11 +0300

� �� , � �� , �� UVScreenCamera:

��:

Add(PictureStream,3493138,546,224)
{
 Quality=90
}
Add(Button,8086098,413,147)
{
 @Color=255
 Left=320
 Top=55
 Width=65
 Height=25
 Caption="�������"
 Data=Integer(1)
 link(onClick,8063350:doWork1,[])
 AddHint(-70,-1,58,13,Caption)
 AddHint(-34,18,21,13,Data)
}
Add(ScreenShort,8665154,476,231)
{
 UseRegion=1
 Point(Region)
 link(onCapture,15489880:doWork2,[])
 link(Region,8063350:Var2,[])
}
Add(ChildForm,8063350,476,147)
{
 @Hint=#17:������� ���������|
}
BEGIN_SDK
  Add(EditMulti,4804366,21,21)
  {
   WorkCount=2
   VarCount=2
   Height=298
   VOffset=35
   HOffset=70
   link(doWork1,13786822:In,[])
   link(doWork2,14391666:doOperation,[(42,69)(42,153)])
   link(Var1,13799839:Var1,[(97,306)])
   link(Var2,8605154:Result,[])
  }
  Add(MainForm,10791562,413,35)
  {
   Left=35
   Top=105
   Color=8388736
   Visible=1
   BorderStyle=7
   DragForm=0
   SavePosName="PrScreener.ini\\Region"
   TransparentManager="123"
   Point(Handle)
   Point(doVisible)
   link(onCreate,1949982:doData,[])
  }
  Add(TransparentManager,11667004,560,42)
  {
   @Hint=#107:�� ���� ����� �������� ����������� � ������������ ��������� ������������� ��� ��� ������ ������������ �����|20:clPurple = $80 00 80|
   Name="123"
   FormTranspColor=8388736
   LeftWidth=20
   RightWidth=20
   TopHeight=20
   BottomHeight=20
   AddHint(72,-17,179,65,@Hint)
  }
  Add(ChildPanel,16569986,413,126)
  {
   link(onEvent1,8736232:doReset,[])
   link(Data1,696278:Var2,[])
  }
  BEGIN_SDK
    Add(EditMulti,16122400,21,21)
    {
     EventCount=1
     DataCount=1
    }
    Add(Panel,16212458,119,98)
    {
     Width=400
     Height=20
     Align=2
     Color=65280
     link(onClick,10587399:doMove,[])
    }
    Add(MoveWindow,10587399,168,98)
    {
     link(Handle,16122400:Data1,[(174,60)(27,60)])
    }
    Add(ButtonRush,10641312,273,21)
    {
     Left=378
     Top=2
     Width=20
     Height=16
     Align=3
     BorderColorOver=10789024
     ColorShadowOver=16777215
     ShadowOffsetOver=0
     UpdateSpeed=0
     Caption="�"
     Glyphs=[]
     link(onClick,16122400:onEvent1,[])
    }
  END_SDK
  Add(ChildPanel,5872043,406,182)
  {
   link(Data1,7627328:Var2,[])
  }
  BEGIN_SDK
    Add(EditMulti,8733418,21,21)
    {
     DataCount=1
    }
    Add(Panel,673315,91,77)
    {
     Width=400
     Height=5
     Align=4
     Color=65280
     link(onClick,15339854:doMove,[])
    }
    Add(MoveWindow,15339854,147,77)
    {
     link(Handle,8733418:Data1,[(153,49)(27,49)])
    }
  END_SDK
  Add(GetDataEx,696278,413,105)
  {
   link(Data,11045768:Var2,[])
  }
  Add(ChildPanel,13751857,364,126)
  {
   link(Data1,7627328:Var1,[(370,110)])
  }
  BEGIN_SDK
    Add(EditMulti,8840099,21,21)
    {
     DataCount=1
    }
    Add(Panel,7965088,119,98)
    {
     Top=5
     Width=5
     Height=290
     Align=1
     Color=65280
     link(onClick,4259288:doMove,[])
    }
    Add(MoveWindow,4259288,168,98)
    {
     link(Handle,8840099:Data1,[(174,60)(27,60)])
    }
  END_SDK
  Add(GetDataEx,7627328,406,105)
  {
   Angle=1
   link(Data,696278:Var1,[])
  }
  Add(ChildPanel,12797164,462,168)
  {
   link(Data1,696278:Var3,[(468,110)])
  }
  BEGIN_SDK
    Add(EditMulti,6250147,21,21)
    {
     DataCount=1
    }
    Add(Panel,16307853,119,98)
    {
     Top=5
     Width=5
     Height=290
     Align=3
     Color=65280
     link(onClick,240658:doMove,[])
    }
    Add(MoveWindow,240658,168,98)
    {
     link(Handle,6250147:Data1,[(174,60)(27,60)])
    }
  END_SDK
  Add(WinTools,335217,518,42)
  {
   link(Handle,11045768:Var3,[(524,30)(460,30)(460,82)])
  }
  Add(DoData,1949982,469,49)
  {
   Data=Integer(1)
   link(onEventData,335217:doPopup,[])
   AddHint(8,-18,21,13,Data)
  }
  Add(GetDataEx,11045768,413,77)
  {
   link(Data,10791562:Handle,[])
  }
  Add(PosWindow,9681169,98,98)
  {
   link(Handle,679457:Var1,[(104,82)])
  }
  Add(PointXY,13322257,98,196)
  {
   link(X,14391666:Result,[(104,188)(69,188)])
   link(Y,14864177:Result,[])
  }
  Add(PointXY,6469236,161,196)
  {
   link(X,2706150:Result,[])
   link(Y,8554930:Result,[(174,188)(209,188)])
  }
  Add(SizeWindow,4169557,196,98)
  {
   link(Handle,679457:Var2,[])
  }
  Add(GetDataEx,679457,196,77)
  {
   Angle=1
   link(Data,11045768:Var1,[])
  }
  Add(Math,14391666,63,147)
  {
   Op2=12
   ResultType=0
   link(onResult,14864177:doOperation,[])
   link(Op1,9681169:CurrentLeft,[(69,139)(104,139)])
  }
  Add(Math,14864177,105,147)
  {
   Op2=27
   ResultType=0
   link(onResult,2706150:doOperation,[])
   link(Op1,9681169:CurrentTop,[])
  }
  Add(Math,2706150,161,147)
  {
   OpType=1
   Op2=24
   ResultType=0
   link(onResult,8554930:doOperation,[])
   link(Op1,4169557:CurrentWidth,[(167,139)(202,139)])
  }
  Add(Math,8554930,203,147)
  {
   OpType=1
   Op2=39
   ResultType=0
   link(onResult,11532550:In,[])
   link(Op1,4169557:CurrentHeight,[])
  }
  Add(LineBreak,14063066,56,259)
  {
   link(Out,8605154:doCreateRect,[])
   Primary=[11532550,189,-112]
  }
  Add(GetDataEx,13799839,553,301)
  {
   link(Data,8736232:State,[])
  }
  Add(RGN_Rect,8605154,98,259)
  {
   Point2AsOffset=0
   link(Point1,13322257:Point,[])
   link(Point2,6469236:Point,[(111,243)(167,243)])
  }
  Add(Switch,8736232,553,119)
  {
   DataOn=Integer(1)
   DataOff=Integer(0)
   link(onSwitch,10791562:doVisible,[(597,125)(597,97)(401,97)(401,69)])
   AddHint(-15,-22,21,13,DataOff)
   AddHint(20,-23,21,13,DataOn)
  }
  Add(LineBreak,7892894,511,119)
  {
   Caption="0/1"
   link(Out,8736232:doSwitch,[])
   Primary=[13786822,-462,-63]
  }
END_SDK
Add(Hub,9163698,434,224)
{
 link(onEvent1,8063350:doWork2,[(462,230)(462,160)])
 link(onEvent2,8665154:doCapture,[])
}
Add(ScreenShort,4754156,434,280)
{
 link(onCapture,15489880:doWork3,[(522,286)])
}
Add(IndexToChanel,1084720,385,217)
{
 Data=Integer(0)
 Point(Index)
 link(onEvent1,4754156:doCapture,[(425,223)(425,286)])
 link(onEvent2,9163698:doEvent1,[])
 link(Index,8063350:Var1,[(391,198)(482,198)])
 AddHint(4,36,21,13,Data)
}
Add(HubEx,15489880,518,231)
{
 link(onEvent,3493138:doSave,[])
}

�� -��, �� - �� . 8-)

Innerfuse Pascal Script

mybb@mybb.ru (andrestudio) — Mon, 15 Jun 2026 13:16:10 +0300

�� Object Pascal
�� FPC �� , �� .
�� FPC

��

LEDFont

mybb@mybb.ru (andrestudio) — Thu, 04 Jun 2026 14:14:49 +0300

�� .
� ��
��
Full �� .

��

mybb@mybb.ru (andrestudio) — Fri, 29 May 2026 06:24:06 +0300

�� ActiveX
��
�� CoClasses �� ActiveX
�� , �� ini ��
��

��:

Add(MainForm,2953706,63,112)
{
 Width=690
 Height=344
 Caption="ActiveXinfo v1.0"
 BorderStyle=1
}
Add(InlineCode,13096425,266,63)
{
 WorkPoints=#12:doGetActiveX|15:doGetInterfaces|15:doGetProperties|
 EventPoints=#9:onClasses|12:onInterfaces|12:onProperties|7:onEnums|11:onFunctions|
 Code=#26:{ Author -=andrestudio=- }|15:unit HiAsmUnit;|0:|9:interface|0:|32:uses kol,Share,Debug,KOLTlbUtil;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|22:     TL: TTypeLibrary;|27:     ClassesList: PStrList;|30:     InterfacesList: PStrList;|30:     PropertiesList: PStrList;|25:     EnumsList: PStrList;|28:     FunctionList: PStrList;|24:     ClassesID: integer;|27:     InterfacesID: integer;|9:   public|24:     Classes: THI_Event;|27:     Interfaces: THI_Event;|26:     onClasses: THI_Event;|29:     onInterfaces: THI_Event;|29:     onProperties: THI_Event;|24:     onEnums: THI_Event;|28:     onFunctions: THI_Event;|25:     constructor Create; |54:     procedure doGetActiveX(var dt: TData; idx: word);|57:     procedure doGetInterfaces(var dt: TData; idx: word);|57:     procedure doGetProperties(var dt: TData; idx: word);|5: end;|0:|14:implementation|0:|32:constructor THiAsmClass.Create; |5:begin|28:  ClassesList := NewStrList;|31:  InterfacesList := NewStrList;|31:  PropertiesList := NewStrList;|26:  EnumsList := NewStrList;|29:  FunctionList := NewStrList;|4:end;|0:|61:procedure THiAsmClass.doGetActiveX(var dt: TData; idx: word);|3:var|13:  i: integer;|5:begin|31:  if Assigned(TL) then TL.Free;|20:  ClassesList.Clear;|23:  InterfacesList.Clear;|23:  PropertiesList.Clear;|18:  EnumsList.Clear;|21:  FunctionList.Clear;|28:  _hi_onEvent(onClasses,'');|31:  _hi_onEvent(onInterfaces,'');|31:  _hi_onEvent(onProperties,'');|26:  _hi_onEvent(onEnums,'');|30:  _hi_onEvent(onFunctions,'');|0:|42:  TL := TTypeLibrary.Create(ToString(dt));|36:  for i := 0 to TL.CoClassCount-1 do|42:    ClassesList.Add(TL.CoClasses[i].Name);|4:    |42:  _hi_onEvent(onClasses,ClassesList.Text);|33:  for i := 0 to TL.EnumCount-1 do|36:    EnumsList.Add(TL.Enums[i].Name);|40:  _hi_onEvent(onEnums,EnumsList.Text);  |4:end;|0:|64:procedure THiAsmClass.doGetInterfaces(var dt: TData; idx: word);|3:var|13:  i: integer;|5:begin|31:  _hi_onEvent(onInterfaces,'');|23:  InterfacesList.Clear;|29:  ClassesID := ToInteger(dt);|59:  for i := 0 to TL.CoClasses[ClassesID].InterfaceCount-1 do|67:    InterfacesList.Add(TL.CoClasses[ClassesID].Interfaces[i].Name);|48:  _hi_onEvent(onInterfaces,InterfacesList.Text);|4:end;|0:|64:procedure THiAsmClass.doGetProperties(var dt: TData; idx: word);|3:var|13:  i: integer;|17:  name,s: string;|16:  t: TInterface;|5:begin|23:  PropertiesList.Clear;|21:  FunctionList.Clear;|31:  _hi_onEvent(onProperties,'');|30:  _hi_onEvent(onFunctions,'');|32:  InterfacesID := ToInteger(dt);|64:  name := TL.CoClasses[ClassesID].Interfaces[InterfacesID].Name;|2:  |38:  for i := 0 to TL.InterfaceCount-1 do|40:    if TL.Interfaces[i].Name = name then|9:    begin|28:      t := TL.Interfaces[i];|12:      Break;|10:    end;  |31:  if not Assigned(t) then Exit;|2:  |36:  for i := 0 to t.PropertyCount-1 do|7:  begin|36:    if t.Properties[i].IsHidden then|35:      _debug(t.Properties[i].Name);|67:    if (t.Properties[i].CanRead) and (t.Properties[i].ID <> 0) then|52:      FunctionList.Add('Get_'+t.Properties[i].Name);|7:       |30:    s := t.Properties[i].Name;|55:    s := s + ': ' + t.Properties[i].Value.DataTypeName;|42:    if PropertiesList.indexOf(s) = -1 then|28:      PropertiesList.Add(s);|7:  end; |49:  _hi_onEvent(onProperties, PropertiesList.Text);|2:  |36:  for i := 0 to t.FunctionCount-1 do|7:  begin|9:    //if |29:    s := t.Functions[i].Name;|26:    //FunctionList.Add(s);|4:    |6:  end;|45:  _hi_onEvent(onFunctions,FunctionList.Text);|4:end;|0:|4:end.|
 link(onClasses,12059634:doText,[])
 link(onInterfaces,10302181:doText,[(375,76)(375,118)])
 link(onProperties,9834733:doText,[(362,83)(362,167)])
 link(onEnums,12678222:doText,[(350,90)(350,216)])
 link(onFunctions,4118586:doText,[(337,97)(337,265)])
}
Add(ODialog,1009433,119,63)
{
 Filter="ocx|*.ocx|dll|*.dll"
 Title="Open ActiveX"
 NoChangeDir=1
 link(onExecute,8313438:doText,[])
}
Add(Button,10501238,63,63)
{
 Left=620
 Top=25
 Caption="Open"
 link(onClick,1009433:doExecute,[])
}
Add(Edit,8313438,182,63)
{
 Left=10
 Top=25
 Width=600
 Ctl3D=1
 Text=""
 link(onChange,13096425:doGetActiveX,[])
}
Add(ListBox,12059634,392,42)
{
 Left=10
 Top=65
 Width=120
 Height=95
 link(onClick,13096425:doGetInterfaces,[(429,55)(429,28)(256,28)(256,76)])
}
Add(Label,13851853,182,112)
{
 Left=10
 Top=5
 Width=149
 Height=17
 Caption="Path ActiveX library (*.ocx,*.dll)"
}
Add(Label,9278937,189,119)
{
 Left=10
 Top=50
 Width=53
 Height=17
 Caption="CoClasses"
}
Add(ListBox,10302181,392,91)
{
 Left=140
 Top=65
 Width=120
 Height=95
 link(onClick,13096425:doGetProperties,[(441,104)(441,16)(243,16)(243,83)])
}
Add(Label,9638729,196,126)
{
 Left=140
 Top=50
 Width=51
 Height=17
 Caption="Interfaces"
}
Add(ListBox,9834733,392,140)
{
 Left=270
 Top=65
 Width=215
 Height=95
}
Add(Label,10084264,203,133)
{
 Left=270
 Top=50
 Width=43
 Height=17
 Caption="Property"
}
Add(ListBox,12678222,392,189)
{
 Left=495
 Top=65
 Width=180
 Height=95
}
Add(Label,1653437,210,140)
{
 Left=495
 Top=50
 Width=36
 Height=17
 Caption="Enums"
}
Add(ListBox,4118586,392,238)
{
 Left=10
 Top=190
 Width=665
 Height=115
}
Add(Label,6549074,217,147)
{
 Left=10
 Top=175
 Width=127
 Height=17
 Caption="Functions and procedures"
}

Win10 �� Win7 :)

mybb@mybb.ru (andrestudio) — Thu, 28 May 2026 12:14:02 +0300

�� Debug �� Delphi7
�� Ex � ��
�� :) ��
��

��:

Add(MainForm,2953706,98,70)
{
 Point(PHandle)
}
Add(InlineCode,13011865,98,133)
{
 WorkPoints=#6:doTest|
 DataPoints=#2:ph|
 Code=#26:{ Author -=andrestudio=- }|15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|17:     c: PControl;|9:   public|19:     ph: THI_Event;|48:     procedure doTest(var dt: TData; idx: word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doTest;|5:begin|26:  c := ReadControl(ph,'');|23:  c.Style := $16CF0000;|25:  c.ExStyle := $16CF0000;|15:  c.Invalidate;|4:end;|0:|4:end.|
 link(ph,2953706:PHandle,[])
}
Add(Button,8001706,35,133)
{
 Left=15
 Top=40
 link(onClick,13011865:doTest,[])
}

VssScrollbar (��)

mybb@mybb.ru (andrestudio) — Thu, 07 May 2026 12:40:04 +0300

�� .
�� :)
Full ��
��

QR-Decoder

mybb@mybb.ru (andrestudio) — Wed, 06 May 2026 11:20:00 +0300

�� QR � �� zbarimg.exe
�� QR ��
��

PNG file -> ��

mybb@mybb.ru (andrestudio) — Thu, 30 Apr 2026 07:03:16 +0300

�� PNG �� .
400 �� -�� :)
�� ico � �� png � �� . (�� png �� )
�� GDI+ �� 32�32 �� 256�256 ��
��
Full ��

ToolBtn

mybb@mybb.ru (andrestudio) — Fri, 24 Apr 2026 14:04:37 +0300

�� ToolBar(a) � �� . �� .
�� .
�� . �� .
��

ToolBar

mybb@mybb.ru (andrestudio) — Thu, 16 Apr 2026 13:39:41 +0300

��
�� , �� .
�� .
� �� , � �� .
�� :) ��.

��
Icons=�� [��_��] �� [index_��]|5|
@XPMode=�� XP �� False �� True|14|0|True,False

� �� Windows10 �� Icons
imageres.dll=289
imageres.dll=3
shell32.dll=258

imageres.dll=255
imageres.dll=251

shell32.dll=260
shell32.dll=259
shell32.dll=263
shell32.dll=131

shell32.dll=221

��

ScreenGifRecord

mybb@mybb.ru (andrestudio) — Thu, 16 Apr 2026 12:28:00 +0300

oCam �� .
�� . �� .
� �� , �� -��
��
�� . �� . �� .
�� . (�� )
�� . ��
�� . �� Gifs � �� .

�� :) ��
�� :)

ChromePDFRender

mybb@mybb.ru (andrestudio) — Wed, 25 Mar 2026 08:27:30 +0300

�� PDF �� pdf.dll
full ��
��

GIFEncoder

mybb@mybb.ru (andrestudio) — Sat, 21 Mar 2026 15:44:13 +0300

�� :)
�� :)

��

GDIPCircleProgressBar

mybb@mybb.ru (andrestudio) — Fri, 13 Mar 2026 11:03:25 +0300

�� :)
�� 1.02
�� doPleaseWait
��
�� dll �� IDE. � �� :)

Create circle avatar

mybb@mybb.ru (andrestudio) — Mon, 09 Mar 2026 10:42:29 +0300

��
��

HiAsm - ����������� ��������

����������� ����� ���� ������-��� sig

��������� �����������

TabHub v2.0

�� FTPServer

MirrorFolders

ShellBrowser

�������� �������

�������� � ����������� ����� ������� ��������� WI-FI

customver - ������ ���������

Mod BitmapArray (doAdd,doInseret,doDelete)

ScreenToPNG

Innerfuse Pascal Script

LEDFont

�������� �����������

Win10 ����� ��� Win7 :)

VssScrollbar (��������������)

QR-Decoder

PNG file -> ��������� ������

ToolBtn

ToolBar

ScreenGifRecord

ChromePDFRender

GIFEncoder

GDIPCircleProgressBar

Create circle avatar

HiAsm - ��

�� -�� sig

��

��

�� WI-FI

customver - ��

��

Win10 �� Win7 :)

VssScrollbar (��)

PNG file -> ��