Forum
Aktif konular
Üyeler
Kurallar
Arama
ICQ Pager Codeleri Lazim ICQ Pager Codeleri Lazim
-
Arkdaslar bana Delphi ICQ Pager Codeleri lazim.
Delphiturk.com"da var fakat ordaki Codeleri denedim cok gec gönderiyor.Bir masaji 1 dakika gibi uzun sürede gönderiyor bazen göndermiyor.
Acaba bu isi 3-5 sn icinde yapan Delphi Code varsa lütfen buraya yazin.
simdiden tesekkürler -
forma 4 tane edit1 koy bit button birde memo1 koy
birtanede socket componenti
procedure TForm1.Button1Click(Sender: TObject);
begin
sData := '';
sData := 'POST /scripts/WWPMsg.dll HTTP/1.0' + #13+#10; //# is another word for Char in delphi
sData := sData + 'Referer: http://wwp.mirabilis.com' + #13+#10;
sData := sData + 'User-Agent: Mozilla/4.06 (Win95; I)' + #13+#10;
sData := sData + 'Connection: Keep-Alive' + #13+#10;
sData := sData + 'Host: wwp.mirabilis.com:80' + #13+#10;
sData := sData + 'Content-type: application/x-www-form-urlencoded' + #13+#10;
sData := sData + 'Content-length: 80' + #13+#10;
sData := sData + 'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*' + #13+#10+#13+#10;
sData := sData + 'from=' + FromTxt.Text + ' &fromemail=' + EmailFromTxt.Text + '&subject=' + SubjectTxt.Text + ' &body=' + BodyTxt.Text + ' &to=' + IcqNumTxt.Text + '&Send=';
ClientSocket1.Active := True;
end;
// Componentin client connection olayina sunu yaz
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
//inc(gnd);
begin
ClientSocket1.Socket.SendText(sData);
ClientSocket1.Active := False;
end;
-
bu program çok yavaş çalışır.
tabi geliştirilebilirde... -
alakasiz icq server zaten belli aralikta atmak zorundasin bir sansin var birisi paso her seferinde port degistirmek digeri ise bir timer yardimi ile zaman vermek
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 2245 Toplam Mesaj: 4
Cevapla