MANGE TAK
Det var lige hvad jeg manglede!!!
Det eneste jeg mangler nu, er at gøre sådan at man den ringe op via
parametrene der bliver sendt til den, men mon ikke det skulle være til
at klare - ellers poster jeg igen
Endnu en gang TAK!
"Steen Jensen" <steen.jensen@mail.dk> wrote in message news:<3c78eb21$0$17215$edfadb0f@dspool01.news.tele.dk>...
> Hej Torsten
>
> Torsten T. Nielsen skrev i meddelelsen
> <3c78db07$0$39837$edfadb0f@dspool01.news.tele.dk>...
> >
> >Det jeg gerne vil vide er, hvordan jeg laver et program i Delphi, som kan
> >åbnes med nogle bestemte parametre, og ud fra dem ringe op til et nummer...
> >
>
> Du kan bruge CreateFile / WriteFile til at åbne en COM-port og
> derefter 'skrive' til den. Jeg ved ikke om det er såden noget du
> tænker på.
>
> var
> HCom: THandle;
> BW: Cardinal;
>
> procedure TForm1.DialNumber(Nummer: String; Port: String);
> begin
> Nummer := 'ATDT'+ Nummer + #13#10;
>
> HCom := CreateFile('COM1', GENERIC_WRITE, 0, nil,
> OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
> if HCom = INVALID_HANDLE_VALUE then
> ShowMessage('Kan ikke åbne ' + Port);
>
> if WriteFile(HCom, PChar(Nummer)^, Length(Nummer), BW, nil) = false then
> ShowMessage('Kan ikke skrive til ' + Port);
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> DialNumber('12345678', 'COM1');
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> CloseHandle(HCom);
> end;
>
> Med venlig hilsen
> Steen