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

dah ada yang pernah bikin belum..

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.

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;

Lebih tepat anda konsultasikan ke vendornya... ActiveXpert

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

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

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:

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

@saysansay udah saya coba tuh codingnya tapi ko ga smsnya ga nyampe yah..