here's the new working code I am pleased!
procedure TMainForm.xCall0;
var
InDevice, OutDevice: Cardinal;
begin
Stage := 0;
Repeat
//1
Stage := Stage +1;
CC := 0;
//xCheckIfAccountIsExausted;
//J := J +1;
InDevice :=...
yeah!! it works now... in just under an hours worth of work thanks to the flow chart (I am star-ing you roo on the suggestion you gave me to do this THANKS I cant believe how helpful this flow chart idea is, Its the BEST way to do it!!!)
Thanks to roo for being a real good influence on me and recommending me to try this (although I don't think this is 'exactly' what he meant).
I have made a flow chart of part of my application and It has made me realise some thing; I have a BUG!!!
when ever my application Auto drops a call I've...
I just fixed it... Form1 onShow event was set to do the procedure 'FormShow' so I deleted the event and left OnShow blank, Instead I put the FormShow procedure (Still as an event for Form1) in OnActivate and now it works A.O.K! :D
the phone is my app. I am restarting it. example:
1) the phone.exe is open
2) phone.exe opens (with shellexecute) reboot.exe
3) reboot.exe closes phone.exe instantly
4) reboot.exe waits 5 seconds
5) reboot exe opens phone.exe
6) reboot.exe terminates it self
(the code above is reboot.exe)...
procedure TMainForm.xALL;
begin
repeat
xManagerALL;
until (CallPack[0..9].active = false);
end;
Instead of this:
procedure TMainForm.xALL;
begin
repeat
xManagerALL;
until (CallPack[0].active = false) and
(CallPack[1].active = false) and
(CallPack[2].active =...
Does any one else have this happen to their applications when using ShellExecute? : my program will work fine but, It will be never show (always minimised).
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls...
I want to give a star to everything you just said (I wont use any of it though).
I have given up with this array of ISipCall.
I think I have made a bad Impression with people here, I have been wasting my time trying to make this array work when It will NEVER work! I have probably done about 50...
that code doesn't do the same thing as my 10 as there are 10 separate conditions of N.
I dont know what you mean by N and HoldCall() are COMMON.
What 'TYPE' is defined for the 1st param in procedure HoldCall? 'N' is Integer.
As for Indention I have to write code in a way that I can easily read...
procedure TMainForm.xHold;
begin
if N = 1 then SimpleSIP1.HoldCall(CallPack, 1, 0);
if N = 2 then SimpleSIP1.HoldCall(CallPack, 2, 0);
if N = 3 then SimpleSIP1.HoldCall(CallPack, 3, 0);
if N = 4 then SimpleSIP1.HoldCall(CallPack, 4, 0);
if N = 5 then SimpleSIP1.HoldCall(CallPack, 5, 0);
if N = 6...
Is there any way to make an integer two or more separate numbers at the same time?
mydogs:array[0..9] of dogs;
i:=1,2,3;
myvoice.sit(mydogs[i]);
..............................................................
procedure TMainForm.xHold;
begin
if N = 1 then begin T := 0...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.