/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Opkald fra Delphi-program
Fra : Torsten T. Nielsen


Dato : 23-02-02 23:35

Hej

Jeg er blevet sat på den opgave, at skulle ringe op via en Acces-database...

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...

En anden mulighed kunne være at sende nogle parametre til Nummersender - er
det muligt???

Med venlig hilsen
Torsten T. Nielsen



 
 
Steen Jensen (24-02-2002)
Kommentar
Fra : Steen Jensen


Dato : 24-02-02 14:31

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




Lifeweb (24-02-2002)
Kommentar
Fra : Lifeweb


Dato : 24-02-02 19:55

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

Steen Jensen (24-02-2002)
Kommentar
Fra : Steen Jensen


Dato : 24-02-02 23:00

Hej

Lifeweb skrev i meddelelsen ...
>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
>

procedure TForm1.DialNumber(Nummer: String; Port: String);
begin
Nummer := 'ATDT'+ Nummer + #13#10;

Det her skulle selvfølgelig være Port i stedet for COM1

HCom := CreateFile(Port, GENERIC_WRITE, 0, nil......

Så kan du kalde proceduren med parametre f.eks

DialNumber('12345678', 'COM1');

Med venlig hilsen
Steen






Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste