bruge af lpt1

Du skal nok starte med at finde standarten for en LPT port, der er nogle handshake ben og nogle data ben, som du ikke kan komme uden om, du er nød til at følge dem hvis du skal være sikker på det virker på alle lpt porte

Læs evt. http://www.beyondlogic.org/spp/parallel.htm

Jeg har noget kode, som kan tænde og slukke for de 8 databen der er på parallelporten...

procedure Out32(PortAdresse:smallint;PortVaerdi:smallint);stdcall;export;
var
  ByteVaerdi: Byte;
begin
  ByteVaerdi:=Byte(PortVaerdi);
  asm
    push dx                      //bevarer indholdet af dx-register
    mov dx,PortAdresse            //skriver ByteVaerdi til PortAdress
    mov al,ByteVaerdi
    out dx,al
    pop dx                        //gendanner indholdet af dx-register
  end;
end;


procedure BinToParallel(bin: String);
var
  tmpByte: Byte;
  I: Integer;
begin
  for I := length(bin) downto 1 do
    if bin[I] = \' \' then
      Delete(bin, I, 1);

  tmpByte := (StrToIntDef(bin[1], 0) * 1) +
            (StrToIntDef(bin[2], 0) * 2) +
            (StrToIntDef(bin[3], 0) * 4) +
            (StrToIntDef(bin[4], 0) * 8) +
            (StrToIntDef(bin[5], 0) * 16) +
            (StrToIntDef(bin[6], 0) * 32) +
            (StrToIntDef(bin[7], 0) * 64) +
            (StrToIntDef(bin[8], 0) * 128);
  Out32($0378,tmpByte)
end;

Det bruges ved at kalde proceduren

BinToParallel(\'00000000\');

Den slukker alle de 8 databen, og

BinToParallel(\'01010101\');

Den tænder hver anden som du nok kan gætte :)

/SpEeDy

SpEeDy

Jeg får en fejl når jeg prøver at bruge BinToParallel den brokker sig over Out32($0378,tmpByte)
så vidt jeg kan se har noge tnoget med min adresering af porten at gøre men har ikek lige så meget ide om hvordan det skal løses :)

/MB

Måske du kan bruge denne :

http://www.beyondlogic.org/porttalk/porttalk.htm

megabyte>>Får du kompileringsfejl, eller er det først når programmet kører du får en fejl ?
Og hvad lyder fejlen på ?

forresten virker mit kode ikke på Win NT/2000/XP

Det er kun win9x det kan køre på..Ellers skal du kigge på martinlinds link hvis det skal køre i NT/2000/XP

/SpEeDy

>>>megabyte_<<<  Jeg har lavet et prøgram i Delphi som der kan det som du vil have det til, også vi win 2000 og Xp... kan maile det til dig hvis du vil...

>atrox
Det må du meget gerne eller bare den del af koden der gøre det :) men oxo meget gerne et eks på hvordan det virker.

her er min mail lige MegaByte@it-College.dk :)

/MB

Eksperten fungerer efter princippet at en person stiller et spørgsmål og der er derefter en masse andre der kan se svaret.  I det lys vil det være mest rimeligt at svaret, dvs. kode stumpen, offentliggøres her.

Peter

Mailer det til dig i aften...

Med coderne og plug-ins...
ATox

Dødt spm håber at det kommer op en anden gang.