Arsip: SmsProtocolHttp

more 15 years ago
xproof
Ada yang pernah bikin aplikasi kirim sms via protocol HHTP ga ?
Saya lagi bikin aplikasinya pake komponen SmsProtocolHttp miliknya activeexpert, tapi selalu error pas di RUN
Error nya begini := [Error] Unit1.pas(45): Types of actual and formal var parameters must be identical
Kodingnya begini :
SmsProtocolHttp1.ProviderHost := 'post.activexperts-labs.com';
smsprotocolhttp1.ProviderPort := 8080;
smsprotocolhttp1.ProviderErrorResponse := 'ERR';
smsprotocolhttp1.ProviderSuccessResponse := 'id';
smsprotocolhttp1.URLText := '/sendsms/default.asp?username=AX008&password=812056&text=%MESSAGEDATA%&to='+
' %MESSAGERECIPIENT%&from=%MESSAGESENDER%';
SmsConstants1.asMESSAGEFORMAT_TEXT;
smsmessage1.Recipient := edit1.Text;
smsmessage1.Sender := edit2.Text;
smsmessage1.Data := edit3.Text;
smsprotocolhttp1.Send(smsmessage1);
Mohon dibantu yah..
Oia bantu juga yang Auto Send Mail nya yah..

more 15 years ago
saysansay
Om @xproof "When the declared type of an actual parameter does not match the type
of a formal var or out parameter, the compiler will issue an error
message: “Types of actual and formal var parameters must be
identical.”"
Sempat bermain sebentar dengan ActiveExpert tapi sayangnya hanya menggunakan fasilitas yang ada dan memodifikasi sedikit2 dari vb Script.
Intinya Parameter yang dikau deklarasikan tidak sama typenya.

more 15 years ago
xproof
Maksudnya parameter gimana?pas error pointernya nunjuk ke coding ini smsprotocolhttp1.Send(smsmessage1), smsmessage1 teh komponen..
ni coding keseluruhannya
procedure TForm1.Button1Click(Sender: TObject);
begin
smsprotocolhttp1.Connect;
SmsProtocolHttp1.ProviderHost := 'post.activexperts-labs.com';
smsprotocolhttp1.ProviderPort := 8080;
smsprotocolhttp1.ProviderErrorResponse := 'ERR';
smsprotocolhttp1.ProviderSuccessResponse := 'id';
smsprotocolhttp1.URLText := '/sendsms/default.asp?username=AX008&password=812056&text=%MESSAGEDATA%&to='+
' %MESSAGERECIPIENT%&from=%MESSAGESENDER%';
SmsConstants1.asMESSAGEFORMAT_TEXT;
smsmessage1.Recipient := edit1.Text;
smsmessage1.Sender := edit2.Text;
smsmessage1.Data := edit3.Text;
smsprotocolhttp1.Send(smsmessage1);
end;

more 15 years ago
saysansay
@xproof blh lihat 1 unit full klu tidak keberatan, Karena setelah saya download dari activeexpert trial, tidak ada 1 error pun. Klu Kodingnya terpengal seperti itu akan sulit untuk menganalisa baik pada create smsmessage,smsprotocolhttp atau pada saat anda menset value obeject/interface tersebut.@ Mas DE emang masih mau jadi vendor activeexpert po? Jadi ingat di complain sm BLUEDOT kenapa receipt dan send smsnya ga bisa lbh cepat dari 11 detik.

more 15 years ago
saysansay
@xproof semoga sedikit modified coding dariku membantu..jgn lupa klu beli activeexpert baca help dulu ok.
var
vt :OleVariant;
isSMS : ISmsMessage;
begin
SmsProtocolHttp1.Connect;
SmsProtocolHttp1.ProviderHost := 'post.activexperts-labs.com';
SmsProtocolHttp1.ProviderPort := 8080;
SmsProtocolHttp1.ProviderErrorResponse := 'ERR';
SmsProtocolHttp1.ProviderSuccessResponse := 'id';
SmsProtocolHttp1.URLText := '/sendsms/default.asp?username=AX008&password=812056&text=%MESSAGEDATA%&to='+
' %MESSAGERECIPIENT%&from=%MESSAGESENDER%';
SmsMessage1.Recipient := edit1.Text;
SmsMessage1.Sender := edit2.Text;
SmsMessage1.Data := edit3.Text;
// Wrapper Class TSmsMessage
isSMS :=SmsMessage1.DefaultInterface;
// Convert Type variable
vt :=isSMS;
SmsProtocolHttp1.Send(vt);
@Xproof anda memang tepat konsultasi sama vendor delphi-id.org(Virtual office)tolong biayanya konsultasinya ditransfer aja ya...
more 15 years ago
xproof
saya ga beli mas cuma nyoba yang tial nya aja...
ah bisa aja @saysansay nihhh..biaya konsultasi apa nih..?kaya ke dokter aja ada biayanya konsultasi.. :lol:

more 15 years ago
xproof
@saysansay : maksudnya unit yang mananya nih, saya juga pake yang trial..
coding saya cuma segitu, ga ada yang lain..@saysansay punya coding lengkapnya yah?bisa di share dong..
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- mAsALah kCiL mU dTanYaiN LgI ? pLiz BanTu
by jajang in Hal umum tentang Pascal Indonesia more 16 years ago - Pemula Mohon Bantuan
by afry in Tip n Trik Pemrograman more 15 years ago - Signature diprotes Trusss. Wakakakakakakaak
by saysansay in OOT more 19 years ago - Interoperabilitas, bingung maksudnya.
by reza in Enginering more 18 years ago - koneksi data module
by neoruz in Hal umum tentang Pascal Indonesia more 18 years ago - mengetahui apakah format suatu text sudah benar...
by goez in Tip n Trik Pemrograman more 17 years ago - Pindah Ke edit lain jika di enter
by listia in Hal umum tentang Pascal Indonesia more 17 years ago - bedain nomor dan abjad
by adokonax in Hal umum tentang Pascal Indonesia more 19 years ago - Tuturial dan Aplikasi Menggunakan Datasnap..
by kabie in Hal umum tentang Pascal Indonesia more 16 years ago - inisial folder
by strike_set in Enginering more 18 years ago