CommFort

Код: Выделить всё

.DATA?
	INIFileExpanded  WORD 260 DUP(?)
.DATA
	WSTR	INIFile,"%APPDATA%\COMMFORT\CONFIG\MAIN.INI"
.CODE
	INVOKE ExpandEnvironmentStringsW,ADDR INIFile,ADDR INIFileExpanded,260

Код: Выделить всё

GetCurrentDirectory
(
	DWORD nBufferLength,	// размер буфера
	LPTSTR lpBuffer		// указатель на буфер
);

Код: Выделить всё

// [b]Функция принятия пакета данных[/b]

void __fastcall TForm1::UDPServerUDPRead(TObject *Sender, TBytes AData,
	  TIdSocketHandle *ABinding)
{
	if (!UDPClient->Active)
		{
			UDPClient->Port=ABinding->PeerPort; // устанавливаем порт по первому принятому пакету для отправки данных
			UDPClient->Active=true; // активируем компонет UDPClient
		}
}

Код: Выделить всё

// [b]Функция для отправки данных[/b]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	TStringStream* msg=OutMsgToChannel(50,"test","HELLO"); // формируем данные для отправки

	TIdBytes mas;
	mas.set_length(msg->DataString.Length()); // устанавливаем длину массива

	memcpy(&mas[0],msg->DataString.c_str(),msg->DataString.Length()); // копируем массив в другой массив

	UDPClient->SendBuffer(mas); // отправляем массив
}