Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

 { Инициализируем DDE и устанавливаем функцию обратного вызова. Если сервер отсутствует, вызов терпит неудачу. }

 if CallBackPtr <> nil then begin

if DdeInitialize(Inst, TCallback(CallBackPtr), AppCmd_ClientOnly,0) = dmlErr_No_Error then begin

ServiceHSz:= DdeCreateStringHandle(Inst, DataEntryName, cp_WinAnsi);

TopicHSz:= DdeCreateStringHandle(Inst, DataTopicName, cp_WinAnsi);

InitOK := True;

{for I := Low(DataItemNames) to High(DataItemNames) do begin }

for I := 1 to NumValues do begin

ItemHSz[I]:= DdeCreateStringHandle(Inst, DataItemNames[I], cp_WinAnsi);

InitOK := InitOK and (ItemHSz[I] <> 0);

end;

if (ServiceHSz <> 0) and (TopicHSz <> 0) and InitOK then begin

ConvHdl := DdeConnect(Inst, ServiceHSz, TopicHSz, nil);

if ConvHdl = 0 then begin

ShowMessage('Не

могу инициализировать диалог!');

Close;

end

end else begin

ShowMessage('Не могу создать строки!');

Close;

end

end else begin

ShowMessage('Не могу осуществить инициализацию!');

Close;

end;

 end;

end;

procedure TForm1.AdviseofChanges1Click(Sender: TObject);

{ Переключаемся на режим DDE Advise с помощью пункта меню DDE | Advise (уведомление). При выборе этого пункта меню все три элемента переключаются на уведомление. }

var

 I: Integer;

 TransType: Word;

 TempResult: Longint;

begin

 with TMenuITem(Sender) do begin

Checked := not Checked;

if Checked then TransType:= (xtyp_AdvStart or xtypf_AckReq)

else TransType:= xtyp_AdvStop;

 end; { with }

 for I := Low(ItemHSz) to High(ItemHSz) do

if DdeClientTransaction(nil, 0, ConvHdl, ItemHSz[I], cf_Text,TransType, 1000, @TempResult) = 0 then ShowMessage('Не

могу выполнить транзакцию-уведомление');

 if TransType and xtyp_AdvStart <> 0 then Request(ConvHdl);

end;

procedure TForm1.PokeSomeDataClick(Sender: TObject);

{ Генерируем DDE-Poke транзакцию в ответ на выбор пункта меню DDE | Poke. Запрашиваем значение у пользователя, которое будем "проталкивать" в DataItem1 в качестве иллюстрации Poke-функции.}

var

 DataStr: pChar;

 S: String;

begin

 S := '0';

 if InputQuery('PokeData', 'Задайте проталкиваемую (Poke) величину', S) then begin

S := S + #0;

DataStr := @S[1];

DdeClientTransaction(DataStr, StrLen(DataStr) + 1, ConvHdl, ItemHSz[1], cf_Text, xtyp_Poke, 1000, nil);

Request(ConvHdl);

 end;

end;

procedure TForm1.exit1Click(Sender: TObject);

begin

 close;

end;

procedure TForm1.PaintBox1Paint(Sender: TObject);

{ После запроса обновляем окно. Рисуем график объема текущих продаж.}

const

 LMarg = 30; { Левое поле графика }

var

 I,Norm: Integer;

 Wd: Integer;

 Step : Integer;

 ARect: TRect;

begin

 Norm := 0;

 for I := Low(DataSample) to High(DataSample) do begin

if abs(DataSample[I]) > Norm then Norm := abs(DataSample[I]);