CommFort

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

aDataToSend := fTextToAnsiString(form1.Edit1.text)+  //имя виртуального пользователя
	fIntegerToAnsiString(3)+  //тип. По имени пользователя
  fTextToAnsiString(uSenderLogin)+ //имя жертвы
  	fIntegerToAnsiString(0)+//тип. Отрубаем его от сервера
    fIntegerToAnsiString(form1.SpinEdit1.Value)+ //срок. Вот тут может косяк, на срок подается обычное число типа integer. к примеру в поле введено значение 7
    fTextToAnsiString('текст')+ //причина
    fIntegerToAnsiString(1); //тип анонимности
  CommFortProcess(dwPluginID, 1040, PAnsiChar(aDataToSend), Length(aDataToSend));

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

var 
  I: Integer;
  D: Double;
begin
  I:=1;
  D:=I; // D = 1.0
end;

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

  D:=form1.SpinEdit1.Value;

 aDataToSend := fTextToAnsiString(form1.Edit1.text)+  //имя виртуального пользователя
	fIntegerToAnsiString(3)+  //тип важности
  fTextToAnsiString(uSenderLogin)+
  	fIntegerToAnsiString(0)+
    fIntegerToAnsiString(D)+ //Вот тут компилятор стопорится
    fTextToAnsiString('Причина')+
    fIntegerToAnsiString(1);
	  	// fTextToAnsiString(uText); //сообщение
  CommFortProcess(dwPluginID, 1040, PAnsiChar(aDataToSend), Length(aDataToSend));

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

[DCC Error] main.pas(403): E2010 Incompatible types: 'WideString' and 'Double'

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

function fDoubleToAnsiString(dValue : Double) : AnsiString; //вспомогательная функция для упрощения работы с данными
begin
	//функция предназначена для ознакомительных целей,
	//не рекомендуется для реального применения,
	//так как при ее использовании проявляется избыточное копирование данных

	SetLength(Result, 8);
	CopyMemory(@Result[1], @dValue, 8);
end;