🚀 go-pugleaf

Here is the Server as Application:
It accepts a filename, returns the file/date
Works fine with client above.


//----------------------------------------------------------------------------
//Borland C++Builder
//Copyright (c) 1987, 1997-2002 Borland International Inc. All Rights Reserved.
//----------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Srvmain.h"
//---------------------------------------------------------------------------
#pragma link "ScktComp"
#pragma resource "*.dfm"

TChatSrvForm *ChatSrvForm;

//---------------------------------------------------------------------------
__fastcall TChatSrvForm::TChatSrvForm(TComponent* Owner)
        : TForm(Owner)
{
}

//---------------------------------------------------------------------------
void __fastcall TChatSrvForm::FormCreate(TObject *Sender)
{
  // When task is created - start listening
  ServerSocket->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TChatSrvForm::ServerSocketClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
  // File name and age
  AnsiString FileName, FileResult;
  TDateTime FileDateTime;
  int Age;

  // copy filename from client
  FileName = Socket->ReceiveText();

  // Lookup file length
  Age = FileAge( FileName );
  if( Age == -1 )
  {
    // File Not found
    FileResult = "File Not Found";
  }
  else
  {
    // File found - return date/time
    FileDateTime = FileDateToDateTime( Age );
    FileResult = FileName + " date: " + (AnsiString) FileDateTime;
  }

  // Now return the result to the client
  ServerSocket->Socket->Connections[0]->SendText( FileResult );
}
//---------------------------------------------------------------------------