AlexMNN
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору После заливки оверлея и вендора винт ожил и заработал. Заливал фришной ST_MEM - около получаса по одному сектору - скрипт сгенерил на Delphi. Вообщем, впечатления от процесса оживления винчестера Seagate Barracuda 7200.8 SATA 250GB ST3250823AS (отказался писать ни с того ни с сего) для новичка довольно пасмурные: профессиональный софт небесплатный и недоступен, надо вникать в процесс и само сканирование идёт довольно долго, да и адаптер пришлось собирать самому. Спасибо всем, кто помог с рекомендациями и советами. ================ procedure TForm2.Button1Click(Sender: TObject); var I,NS: Integer; S, SI, SN: String; const Fmt = 'TIME' + SLineBreak + 'LEVEL/T' + SLineBreak + 'S_BUF/410/rd_ovl_0_15F1C.trc/%s/1/1' + SLineBreak + 'LEVEL/2' + SLineBreak + 'STR/s15FFB,0,22' + SLineBreak + 'STR/w,%s,1' + SLineBreak + '' + SLineBreak; begin NS := $7B; S := ''; for I := 0 to NS -1 do begin SN := IntToHex(I,1); SI := Format(Fmt,[SN,SN]); S := S + SI; end; Memo1.Text := S; end; procedure TForm2.Button2Click(Sender: TObject); var I,NS: Integer; S, SI, SN: String; const Fmt = 'TIME' + SLineBreak + 'LEVEL/T' + SLineBreak + 'S_BUF/410/rd_vndr_0_15F20.trc/%s/1/1' + SLineBreak + 'LEVEL/2' + SLineBreak + 'STR/s15FFF,0,22' + SLineBreak + 'STR/w,%s,1' + SLineBreak + '' + SLineBreak; begin NS := $12; S := ''; for I := 0 to NS -1 do begin SN := IntToHex(I,1); SI := Format(Fmt,[SN,SN]); S := S + SI; end; Memo1.Text := S; end; |