how to solve this in delohi ufsx002?? - GSM-Forum

mobayz · 03-21-2011, 05:43

i can`t enumrate comports into the combo box

ufsx002 · 03-21-2011, 08:09

procedure TForm1.Button22Click(Sender: TObject);
var
ComPorts:TStringList;
s : String;
i : integer;
begin

Comports:=TStringList.Create;
EnumComPorts(Comports);

sCombobox2.Items.Clear; //combobox
sCombobox2.Items.AddStrings(comports);

//SEARCHING FTDI DEVICES AND BUT IN COMBOBOX
GetFTDeviceCount;
S := IntToStr(FT_Device_Count);
If FT_Device_Count > 0 then
//Devices Found
Begin
DevicePresent:=True;

If FT_Device_Count<1 Then EXIT;

DeviceIndex := 0;
If FT_Device_Count > 0 then //1
Begin
DevicePresent:=True;

For I := 1 to FT_Device_Count do
Begin
FT_DEVICEINDEX := (GetFTDeviceSerialNo( DeviceIndex )); // SAVE THE LAST DEVICE INDEX - THIS FTDI DEVICE WILL BE USED
GetFTDeviceDescription ( DeviceIndex );
S := FT_Device_String;
form1.sComboBox2.Items.Add(S);
sCombobox2.ItemIndex:=scombobox2.items.count-1;
DeviceIndex := DeviceIndex+ 1 ;
End;
end;
end;

end;

mobayz · 03-21-2011, 09:33

Sorry but way this error

MISSING OPRATOR OR SIMICOLON

[Shadab_M] · 03-21-2011, 11:59

Quote:

Originally Posted by mobayz

Sorry but way this error

MISSING OPRATOR OR SIMICOLON

I think you should delete red marked line.

Dont know much about Delphi, but you have made mistake there. EnumComPorts is a function.

Br,
Shadab Ahmad

[Shadab_M] · 03-21-2011, 16:49

Sorry forgot to upload attachment!

Br,
Shadab Ahmad

[Shadab_M] · 03-22-2011, 07:47

@mobayz

Please post if your problem solved or you uselessly gave me a thanks!

I am also willing to learn Delphi bcoz more source codes for flashing/unlocking tools are available in this language.

Br,
Shadab Ahmad

mustipusti · 03-22-2011, 18:25

i know this problem... when the enumcomport function is under the execute function it wont work...

like this:

enumcomports(tx.txt);

function enumcomport(a:string);
begin
end;

it must be this:

function enumcomport(a:string);
begin
end;

enumcomports(tx.txt);

mustipusti · 03-22-2011, 18:25

double post ......................

jinun · 05-25-2011, 21:01

sory master:
UFS_JAF_Boot.rar - 4shared.com - online file sharing and storage - download

ufsx002 · 05-26-2011, 09:23

juste un example

Project1(1).zip - 4shared.com - online file sharing and storage - download

03-21-2011, 05:43	#1 (permalink)
mobayz Freak Poster Join Date: Feb 2008 Location: YEMEN Posts: 186 Member: 712521 Status: Offline Thanks Meter: 25	how to solve this in delohi ufsx002?? i can`t enumrate comports into the combo box Last edited by mobayz; 03-21-2011 at 05:52.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
news headlines to gsm phone	mos	Nokia Legacy Phones ( DCT-1 ,2 ,3 ,L )	7	05-22-2016 11:42
How can I do a Welcome note for my 6110 a dosn't have any one ?	Viper	Nokia Legacy Phones ( DCT-1 ,2 ,3 ,L )	8	06-27-2015 11:57
How to add a language in 51xx/61xx	tati	Nokia Legacy Phones ( DCT-1 ,2 ,3 ,L )	8	05-21-2013 19:20
How to upload a new firmware...	Brand	Nokia Legacy Phones ( DCT-1 ,2 ,3 ,L )	8	06-08-2012 18:29
Copy from one 6110 to another	Leif Nielsen	Nokia Legacy Phones ( DCT-1 ,2 ,3 ,L )	1	06-10-1999 22:36

03-21-2011, 08:09	#2 (permalink)
ufsx002 Banned Join Date: Dec 2006 Location: ALGERIE ORAN Age: 50 Posts: 428 Member: 415170 Status: Offline Thanks Meter: 1,042	procedure TForm1.Button22Click(Sender: TObject); var ComPorts:TStringList; s : String; i : integer; begin Comports:=TStringList.Create; EnumComPorts(Comports); sCombobox2.Items.Clear; //combobox sCombobox2.Items.AddStrings(comports); //SEARCHING FTDI DEVICES AND BUT IN COMBOBOX GetFTDeviceCount; S := IntToStr(FT_Device_Count); If FT_Device_Count > 0 then //Devices Found Begin DevicePresent:=True; If FT_Device_Count<1 Then EXIT; DeviceIndex := 0; If FT_Device_Count > 0 then //1 Begin DevicePresent:=True; For I := 1 to FT_Device_Count do Begin FT_DEVICEINDEX := (GetFTDeviceSerialNo( DeviceIndex )); // SAVE THE LAST DEVICE INDEX - THIS FTDI DEVICE WILL BE USED GetFTDeviceDescription ( DeviceIndex ); S := FT_Device_String; form1.sComboBox2.Items.Add(S); sCombobox2.ItemIndex:=scombobox2.items.count-1; DeviceIndex := DeviceIndex+ 1 ; End; end; end; end;

03-21-2011, 09:33	#3 (permalink)
mobayz Freak Poster Join Date: Feb 2008 Location: YEMEN Posts: 186 Member: 712521 Status: Offline Thanks Meter: 25	Sorry but way this error MISSING OPRATOR OR SIMICOLON

03-22-2011, 07:47	#6 (permalink)
[Shadab_M] No Life Poster Join Date: Mar 2006 Location: .: India :. Heaven on Earth Posts: 2,496 Member: 238812 Status: Offline Sonork: 100.1602669 Thanks Meter: 1,443	@mobayz Please post if your problem solved or you uselessly gave me a thanks! I am also willing to learn Delphi bcoz more source codes for flashing/unlocking tools are available in this language. Br, Shadab Ahmad

03-22-2011, 18:25	#7 (permalink)
mustipusti Freak Poster Join Date: Mar 2009 Posts: 234 Member: 984268 Status: Offline Thanks Meter: 150	i know this problem... when the enumcomport function is under the execute function it wont work... like this: enumcomports(tx.txt); function enumcomport(a:string); begin end; it must be this: function enumcomport(a:string); begin end; enumcomports(tx.txt);

03-22-2011, 18:25	#8 (permalink)
mustipusti Freak Poster Join Date: Mar 2009 Posts: 234 Member: 984268 Status: Offline Thanks Meter: 150	double post ......................

05-25-2011, 21:01	#9 (permalink)
jinun Junior Member Join Date: Apr 2007 Posts: 9 Member: 498791 Status: Offline Thanks Meter: 0	sory master: UFS_JAF_Boot.rar - 4shared.com - online file sharing and storage - download

05-26-2011, 09:23	#10 (permalink)
ufsx002 Banned Join Date: Dec 2006 Location: ALGERIE ORAN Age: 50 Posts: 428 Member: 415170 Status: Offline Thanks Meter: 1,042	juste un example Project1(1).zip - 4shared.com - online file sharing and storage - download