ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#include <windows.h>
#include <stdio.h>
#include "winsock2.h"

void main() {
  
  WSADATA wsaData;
  SOCKET SendSocket;
  sockaddr_in RecvAddr;
  int Port = 27015;
  char SendBuf[1024];
  int BufLen = 1024;

  //---------------------------------------------
  // Initialize Winsock
  WSAStartup(MAKEWORD(2,2), &wsaData);

  //---------------------------------------------
  // Create a socket for sending data
  SendSocket = socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP);

  //---------------------------------------------
  // Set up the RecvAddr structure with the IP address of
  // the receiver (in this example case "123.456.789.1")
  // and the specified port number.
  RecvAddr.sin_family = AF_INET;
  RecvAddr.sin_port = htons(Port);
  RecvAddr.sin_addr.s_addr = inet_addr("123.456.789.1");

  //---------------------------------------------
  // Send a datagram to the receiver
  printf("Sending a datagram to the receiver...\n");
  sendto(SendSocket, 
    SendBuf, 
    BufLen, 
    0, 
    (SOCKADDR *) &RecvAddr, 
    sizeof(RecvAddr));

  //---------------------------------------------
  // When the application is finished sending, close the socket.
  printf("Finished sending. Closing socket.\n");
  closesocket(SendSocket);

  //---------------------------------------------
  // Clean up and quit.
  printf("Exiting.\n");
  WSACleanup();
  return;
}

smth := StringGrid1.RowCount;

type
   TOpenOffice = class
      function Connect: boolean;
      procedure Disconnect;
      function CreateDocument (Application: string): boolean;
      procedure InsertTextCalc(Text: string; Index: integer = 0;
      col: integer = 0; row: integer = 0; Border: boolean = false;
      Bold: boolean = false);
      
   private
      StarOffice: Variant;
      Document: Variant;
   end;

implementation
{$D+,L+}

function TOpenOffice.Connect: boolean;
begin
   if VarIsEmpty(StarOffice) then
      StarOffice := CreateOleObject('com.sun.star.ServiceManager');
   Result := not (VarIsEmpty(StarOffice) or VarIsNull(StarOffice));
end;

procedure TOpenOffice.Disconnect;
begin
   StarOffice := Unassigned;
end;


function TOpenOffice.CreateDocument(Application: String): boolean;
var
   StarDesktop: Variant;
begin
   StarDesktop := StarOffice.createInstance('com.sun.star.frame.Desktop');
   Document := StarDesktop.LoadComponentFromURL(
                  'private:factory/s'+Application, '_blank', 0,
                  VarArrayCreate([0, -1], varVariant));
   Result := not (VarIsEmpty(Document) or VarIsNull(Document));
end;


procedure TOpenOffice.InsertTextCalc(Text: string; Index: integer = 0;
            col: integer = 0; row: integer = 0; Border: boolean = false;
            Bold: boolean = false);
var
  Sheets, Sheet, Cell, Struct: variant;
begin
   Sheets := Document.GetSheets;
   Sheet := Sheets.getByIndex(Index);
   Cell := Sheet.getCellByPosition(col, row);
   Cell.setString(Text);

   if Border then
    begin
      Struct := StarOffice.Bridge_GetStruct('com.sun.star.table.BorderLine');

      Struct.lineDistance := 0;
      Struct.innerLineWidth := 0;
      Struct.outerLineWidth := 1;

      cell.leftBorder := Struct;
      Cell.rightBorder := Struct;
      Cell.topBorder := Struct;
      Cell.bottomBorder := Struct;

    end;

   if Bold then
    Cell.CharWeight:= 200;
end;

end; // TOpenOffice

var
  OpenOffice: TOpenOffice

procedure TfmMain.bOOConnectClick(Sender: TObject);
begin
  OpenOffice := TOpenOffice.Create;
  OpenOffice.Connect;
  OpenOffice.CreateDocument('calc');
  OpenOffice.InsertTextCalc(StringGrid1.Cells[1,1], 0, 1, 1, true);
  OpenOffice.Disconnect;
end;