Чт сен 30, 2021 16:30:44
Чт сен 30, 2021 17:46:24
Чт сен 30, 2021 17:59:42
всегда один и тот же ответ при попытке засыла или чтения пакета... ФиХня какая-то.
Пт окт 01, 2021 09:19:49
Пт окт 01, 2021 10:27:33
Пт окт 01, 2021 11:26:53
Пт окт 01, 2021 12:03:29
Пт окт 01, 2021 12:34:08
{$read}
//reading 24c08
begin
ChipSize := 1024;
MemAddr := 0;
ReadBuff := CreateByteArray(ChipSize);
DevAddr := $A0;
I2CEnterProgMode;
I2CReadWrite(DevAddr, 1, ChipSize, MemAddr, ReadBuff);
ReadToEditor(ChipSize, 0, ReadBuff);
I2CExitProgMode;
end
{$write}
function I2CIsBusy(DevAdr): boolean;
begin
I2CStart;
Result := not I2CWriteByte(DevAdr);
I2CStop;
end;
//writing 24c08
begin
ChipSize := 1024;
MemAddr := 0;
WriteByte := 0;
DevAddr := $A0;
ProgressBar(0, _IC_SIZE-1, 0);
I2CEnterProgMode;
for i:=0 to ChipSize-1 do
begin
WriteFromEditor(1, i, WriteByte);
I2CReadWrite(DevAddr, 2, 0, MemAddr, WriteByte);
while I2CIsBusy(DevAddr) do;;
MemAddr := MemAddr + 1;
if MemAddr = 256 then DevAddr := $A2;
if MemAddr = 512 then DevAddr := $A4;
if MemAddr = 768 then DevAddr := $A6;
ProgressBar(1);
end;
I2CExitProgMode;
ProgressBar(0, 0, 0);
end
Пт окт 01, 2021 12:42:49
Вс окт 30, 2022 15:36:15
Вс окт 30, 2022 19:59:05
Вс окт 30, 2022 21:26:46
Сб ноя 05, 2022 09:21:09
Сб ноя 05, 2022 09:49:21
Сб ноя 05, 2022 09:57:32
Сб ноя 05, 2022 10:28:56
Сб ноя 05, 2022 17:02:16