write bin to comport connected phone as hex

[doctorsu]

Hi

Need to send boot-loader to phone as a hex in delphi

1- get file as hex
2- sending to comport as a hex
3- reading from comport while writing every 256 block
Or less or more

Thanks brothers

[doctorsu]

Found it



Thanks for ignoring

[Nishith]

If you tried search functionality, You might got these results:
http://forum.gsmhosting.com/vbb/f83/...mport-1267120/
http://forum.gsmhosting.com/vbb/f83/...oader-1259448/
http://forum.gsmhosting.com/vbb/f83/...nation-941474/

This is also Helpful: http://forum.gsmhosting.com/vbb/f83/...5-11-a-637967/

Best way: Try to Do It Yourself, As you done right now.

P.S.: Share the solution, If you are comfortable.

[Victor]

@doctorsu

http://forum.gsmhosting.com/vbb/f83/...5-11-a-637967/

If you not read forum rules. And not read one basic book from library "HOW TO USE SEARCH BUTTON BEFORE ASK" - with clear mind will give infraction.

Specialy that part:

Update - 20th May 2011

This is not a "source code request" section. 

Do not start a thread asking "give me source for xxxx".

If you have trouble with a project, post details of your problem (best to post your existing source code) and someone will help.

If you search the forum you will find many, many examples of source code.

Regards: Victor

[doctorsu]

thanks

I read it now sorry

now I used this

AssignFile(OpenFile,'boo.bin');
  Reset(OpenFile,1);

           repeat
    blockread(OpenFile,buf,sizeof(buf),fc1);
    sleep(500);
               comport1.Write(buf,sizeof(buf)) ;
        Application.ProcessMessages;
                    form1.ComPort1.ReadStr(r, 20);
    if fc1<>0 then begin
      Application.ProcessMessages;

    end;
  until fc1<>sizeof(buf);
  closefile(OpenFile);

but my problem is this percuder It write the hole bin after the I get the comport answers


I need to read phone answers after 4096 bites of write

[doctorsu]

AssignFile(OpenFile, 'boot.hex');
try
Reset(OpenFile, 1);

while not Eof(OpenFile) do
begin
fc1 := 0;
repeat
BlockRead(OpenFile, buf[fc1], sizeof(buf)-fc1, BytesRead);
Inc(fc1, BytesRead);
until (fc1 = sizeof(buf)) or Eof(OpenFile);

if fc1 = 0 then Break;

Comport1.Write(buf, fc1);
ComPort1.ReadStr(r, 20);

if GetQueueStatus(QS_ALLINPUT) <> 0 then
Application.ProcessMessages;
end;
finally
CloseFile(OpenFile);
end;