Gerain, попробуй убрать совсем
вот так компилится
delphi Код:
var
i : integer;
begin
SendMsg('WITHDRAW and DEPOSIT');
buf:=hstr('A7 2B 23 00 00 A0 86 01 00 01 00 00 00 00 00 00 00 00 00 00 00 '); //withdraw
SendToServer;
application.processmessages;
buf:=hstr('A7 2B 23 00 00 40 0D 03 00 01 00 00 00 00 00 00 00 00 00 00 00'); //deposit
SendToServer;
application.processmessages;
if FromClient and (pck=HStr('34 03 00 00 00')) then
begin
SendMsg('WITHDRAW');
buf:=hstr('A7 2B 23 00 00 A0 86 01 00 01 00 00 00 00 00 00 00 00 00 00 00 '); //withdraw
SendToServer;
application.processmessages;
end;
if FromClient and (pck=HStr('34 04 00 00 00')) then
begin
SendMsg('DEPOSIT');
buf:=hstr('A7 2B 23 00 00 40 0D 03 00 01 00 00 00 00 00 00 00 00 00 00 00 '); //deposit
SendToServer;
application.processmessages;
end;
if FromClient and (pck=HStr('34 06 00 00 00')) then
for i:=1 to 50 do begin ///от 1 до N (где N количество отсылок)
buf:=hstr('49 2E 00 77 00 69 00 74 00 68 00 64 00 72 00 61 00 77 00 00 00 00 00 00 00'); //withdraw
SendToServer;
application.processmessages;
buf:=hstr('49 2E 00 64 00 65 00 70 00 6F 00 73 00 69 00 74 00 00 00 00 00 00 00'); //deposit
SendToServer;
application.processmessages;
end;
end.
ps: правильность работы не проверял