czy moglby ktos napisac mi <ort>najprostrzy </ort>programik w oparciu na tych procedurach
function out32(PortAddress,ByVal:Integer):Integer
stdcall;external 'inpout32.dll' name 'Out32';

function Inp32(PortAddress:Integer):Integer
stdcall;external 'inpout32.dll' name 'Inp32';

do wstawiania wyzszego stanu na porcie?

przegladalem tciacomport lecz tam nie ma nic o adresie portu, tlyko ocs takiego znalazlem:
hPort := CreateFile(PChar(P), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);

lub czy ma ktos wlasny pomysl jak kontrolowaccomem bez uzyciakomponentu?

Prosze o pomoc! ;-(
musze dzis to zrobic a nic nie moze znalezc
szukalem w Tciaportcom
znalazlem taka procedure:
[delphi]
procedure CiaEnumPorts(PortList: TStrings);
var
n, MaxPorts: integer;
Port: THandle;
PortName: string;
begin
if Win32PlatForm = VER_PLATFORM_WIN32_NT then
MaxPorts := 256
else { if VER_PLATFORM_WIN32_WINDOWS }
MaxPorts := 9;

for n := 1 to MaxPorts do
begin
PortName := '\.\COM' + IntToStr(n);
Port := CreateFile(PChar(PortName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);

  if (Port <> INVALID_HANDLE_VALUE) or (GetLastError = ERROR_ACCESS_DENIED) then
     PortList.Add(IntToStr(n));

 CloseHandle(Port);

end;
end;

[/delphi]

tworzy plik? czy w ten sposob mozna uzyskac polaczenie z portem ?
ratujcie:)