Ĺadny brzuch
Jak za pomocą tego komponntu (wchodzi w skład pakietu INDY) kasować pocztę od jakiegoś niechcianego nadawcy, jeśli zajmuje ponad 600KB, zawiera w treści jakieś słowa (np. cash, sex itp.) ??
TRATAT
Na początek musisz pobrac wiadomość z serwera pocztowego (ale tylko tekst). W właściwości Body komponenty TidMessage należy odszukać interesujące nas ciągi znaków. Na koniec jeżeli dana wiadomość zawiera niporządane ciagi znaków to należy ją usunąć podając index (numer) wiadomości.
Jeżeli chcesz więcej wiadomości na pisz: mickers@poczta.onet.pl
Look for: http://strefa_progra...ia.w.interia.pl
Tylko że mickers nie napisał ci w jaki sposób prorgam miałby odszukiwać taki ciąg znaków.
W delphi jest funkcja AnsiContainsStr(s,'pod')
Działa ona tak że jeżeli w zmiennej s znajduje się ciąg znaków pod[/], to funkcja zwraca wartość true, w przeciwnym wypadku zwraca wartość false.
---[b]Nie chcieć, to gorzej niż nie móc---
Jest też funkcja Pos która zwraca numer znaku
np:
var s: string;
begin
s := 'przykładowy text';
if Pos('text', s) > 0 then
ShowMessage('Jest text');
end;
Tak też można :cheesy:
Look for: http://strefa_progra...ia.w.interia.pl
cytat:podrurznik napisał:
Tylko że mickers nie napisał ci w jaki sposób prorgam miałby odszukiwać taki ciąg znaków.
W delphi jest funkcja AnsiContainsStr(s,'pod')
Działa ona tak że jeżeli w zmiennej s znajduje się ciąg znaków pod[/], to funkcja zwraca wartość true, w przeciwnym wypadku zwraca wartość false.
---[b]Nie chcieć, to gorzej niż nie móc---
A mugłbyś mi napisać cała procedurkę ?? PROSZE !!!
TRATAT
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
TRATAT
Na początek musisz pobrac wiadomość z serwera pocztowego (ale tylko tekst). W właściwości Body komponenty TidMessage należy odszukać interesujące nas ciągi znaków. Na koniec jeżeli dana wiadomość zawiera niporządane ciagi znaków to należy ją usunąć podając index (numer) wiadomości.
Jeżeli chcesz więcej wiadomości na pisz: mickers@poczta.onet.pl
Look for: http://strefa_progra...ia.w.interia.pl
Tylko że mickers nie napisał ci w jaki sposób prorgam miałby odszukiwać taki ciąg znaków.
W delphi jest funkcja AnsiContainsStr(s,'pod')
Działa ona tak że jeżeli w zmiennej s znajduje się ciąg znaków pod[/], to funkcja zwraca wartość true, w przeciwnym wypadku zwraca wartość false.
---[b]Nie chcieć, to gorzej niż nie móc---
Jest też funkcja Pos która zwraca numer znaku
np:
var s: string;
begin
s := 'przykładowy text';
if Pos('text', s) > 0 then
ShowMessage('Jest text');
end;
Tak też można :cheesy:
Look for: http://strefa_progra...ia.w.interia.pl
cytat:podrurznik napisał:
Tylko że mickers nie napisał ci w jaki sposób prorgam miałby odszukiwać taki ciąg znaków.
W delphi jest funkcja AnsiContainsStr(s,'pod')
Działa ona tak że jeżeli w zmiennej s znajduje się ciąg znaków pod[/], to funkcja zwraca wartość true, w przeciwnym wypadku zwraca wartość false.
---[b]Nie chcieć, to gorzej niż nie móc---
A mugłbyś mi napisać cała procedurkę ?? PROSZE !!!
TRATAT