Вставка текста в шапку(Delphi)

Здесь обсуждаются технические аспекты создания дополнений.
Аватара пользователя
SV
Сообщения: 797
Зарегистрирован: 00:11, 06.09.2010
Откуда: Киров

Вставка текста в шапку(Delphi)

Сообщение SV »

По прозьбе Alawar отвечаю как на делфи вставить приветствие текст из файла.


Для клиента:

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

const option:string='DC++Ping/'; //Папка в которой лежит наш файл с текстом приветствия

procedure tema();
var
aDataToSend :AnsiString;
app:string;
begin
    App := ExtractFilePath(ParamStr(0));//Опредиляет путь до файла
    //Добовляем текст в приветствие канала
    aDataToSend := fTextToAnsiString('main')+  //канал
    fTextToAnsiString(app+option+'Privetstvie.txt'); //Текст который нужно отправить.
    CommFortProcess(dwPluginID, 62, PAnsiChar(aDataToSend), Length(aDataToSend)); //Отправляем
end;
Для сервера:

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

const option:string='DC++Ping/'; //Папка в которой лежит наш файл с текстом приветствия

procedure tema();
var
aDataToSend : AnsiString;
app:string;
begin
    App := ExtractFilePath(ParamStr(0));//Опредиляет путь до файла
    //Добовляем текст в приветствие канала
    aDataToSend := fTextToAnsiString('bot')+  //Виртуальный пользоватль
    fTextToAnsiString('main')+  //канал
    fTextToAnsiString(app+option+'Privetstvie.txt'); //Текст который нужно отправить.
    CommFortProcess(dwPluginID, 1024, PAnsiChar(aDataToSend), Length(aDataToSend)); //Отправляем
end;
Помоему всё правельно.
Последний раз редактировалось SV 12:31, 27.03.2011, всего редактировалось 2 раза.
Аватара пользователя
Dj Arktic
Сообщения: 99
Зарегистрирован: 22:55, 04.12.2010

Re: Вставка текста в шапку(Delphi)

Сообщение Dj Arktic »

[удалено как офтопик]
Аватара пользователя
SV
Сообщения: 797
Зарегистрирован: 00:11, 06.09.2010
Откуда: Киров

Re: Вставка текста в шапку(Delphi)

Сообщение SV »

[удалено как офтопик]
Ответить