radick - Developer IT

how to get motherboard id or serial number ?[Delphi]

- by radick

hey folks how to get motherboard id or serial number ? is there any example or articles o try to get ? thanks in advance

how to save extracted icon in delphi

hi all I am trying to make icon extractor i am successful in getting icon to image1.picture.icon ,its looking same as orginal file icon, but when i am trying to save (iamge1.picture.icon.savetofile(c:\imahe.ico)) its not saving as it is ,it saving with less colur and looking ugly cany any one please tell me what i am doing wrong ? here is my code procedure TForm1.Button1Click(Sender: TObject); begin OpenDialog1.Filter:='All files |*.*'; OpenDialog1.Title:='Please select file'; if OpenDialog1.Execute then Edit1.Text:=OpenDialog1.FileName; end; procedure TForm1.Button3Click(Sender: TObject); var szFileName: string; Icon: TIcon; SHInfo: TSHFileInfo; begin szFileName := Edit1.Text; if FileExists(Edit1.Text) then begin Icon := TIcon.Create; SHGetFileInfo(PChar(szFileName), 0, SHInfo, SizeOf(SHInfo), SHGFI_ICON); Icon.Handle := SHInfo.hIcon; Image1.Picture.Icon := Icon; end; end; procedure TForm1.Button2Click(Sender: TObject); begin if SaveDialog1.Execute then begin Image1.Picture.Icon.SaveToFile(SaveDialog1.FileName+'.ico'); ShowMessage('done'); end; end;

Read the article

indy or ICS or ?

- by radick

Can any one tell me which is more stable? I know each has their own advantages and disadvantages. But which one is better for http, etc? In my previous application I used indy9 but I wasn't satisfied with it, as I would sometimes get strange errors. Can anyone recommend one?

Read the article

special character coming when i am using & and p

- by radick

hi all I dont know what exactly i have to type in title for this ,i tried my best anyway coming to topic I am making one acc checker for that purpose ,i am sending user and pass from my bsskinedit1 and bsskinedit2 here is my code s:='http:\\site.com..premlogin='+bsskinedit.text+'&password='+bsskinedit2.text but it giving some error ,then i used showmessage whats wrong with it then i came with strange result see below http://i39.tinypic.com/2415d77.jpg observer after 4 & and p combining together and appearing as a some new symbol :( can any one tell me why its coming like this ?

Read the article

how to execute javascript in delphi?

- by radick

hi all i am coding a small app ,in middle i struck at some point where i have to execute javascript to get my data ? in my process ,i have to login to some url and then go to some page and have to get data from that . i done all this with indy idhttp ,i got all info except one column which needs javascript to get value ,then i itried to using twebbowser to make it work for me ,but how can i use cookies to enabled to webbrowser ? i navigated browserto('http://mysite.com/login.php user and pass ') ,well its loged in and then i tried to access next link like ('http://mysite.com/link1/example.php')but it directing to login page :( any help appreciated :)

Read the article

Deleting duplicates in Delphi listview

- by radick

I am trying to remove duplicates in my listview. This function: procedure RemoveDuplicates(const LV:TbsSkinListView); var i,j: Integer; begin LV.Items.BeginUpdate; LV.SortType := stText; try for i := 0 to LV.Items.Count-1 do begin for j:=i+1 to LV.Items.Count-1 do begin if SameText(LV.Items[i].SubItems[0], LV.Items[j].SubItems[0]) and SameText(LV.Items[i].SubItems[1], LV.Items[j].SubItems[1]) and SameText(LV.Items[i].SubItems[2], LV.Items[j].SubItems[2]) and SameText(LV.Items[i].SubItems[3], LV.Items[j].SubItems[3]) then LV.Items.Delete(j); end; end; finally LV.SortType := stNone; LV.Items.EndUpdate; end; ShowMessage('Deleted'); end; does not delete the duplicates. What is wrong with it?

Read the article

deleting dublicates in listview delphi

- by radick

hi all I am trying to remove dublicates in my listview my function like this below procedure RemoveDuplicates(const LV:TbsSkinListView); var i,j: Integer; begin LV.Items.BeginUpdate; LV.SortType := stText; try for i := 0 to LV.Items.Count-1 do begin for j:=i+1 to LV.Items.Count-1 do begin if SameText(LV.Items[i].SubItems[0], LV.Items[j].SubItems[0]) and SameText(LV.Items[i].SubItems[1], LV.Items[j].SubItems[1]) and SameText(LV.Items[i].SubItems[2], LV.Items[j].SubItems[2]) and SameText(LV.Items[i].SubItems[3], LV.Items[j].SubItems[3]) then LV.Items.Delete(j); end; end; finally LV.SortType := stNone; LV.Items.EndUpdate; end; ShowMessage('Deleted'); end; but its not doing what i intended can anyone help me ?

Read the article

how to read data from dat file ?

- by radick

hi all how to read data from .dat files ? i just tried like this memo1.lines.loadfromfile('c:\myfile.dat'); but not worked can any one please help me :)

Read the article

alternative ways to blockwrite ?

- by radick

hi all is there any alternate ways to blockwrite ? now in my app i am using it like this BlockWrite(file, buffer[1], Length(buffer)); i want to know alternate ways writing string to an exe file(binary ) just want to know different methods :) can any one help me thanks in advance

Developer IT