Arsip: Penanda pesan

more 12 years ago
astika
Para master yang budiman...begini saya membangun aplikasi untuk tugas akhir.menggunakan instant messenger...masalahnya adalah pada saat pengiriman karakter yang banyak.terus di parsing2..nah ada saran dari teman agar pesannya itu di isi penanda awal sama akhirnya dan juga antara pesan 1,2,3,....dst diisi penanda agar tidak salah pada proses penggabungannya...nah saya bingung di mana naruh penandanya tersebut..dan mengecek penanda tsb ke dalam penggabungan pesan.
terimakasih sebelumnya
dan untuk coding potong carakternya di bantu oleh delphi expert..berikut kodingnya
[code:1:0f115a35e9]
1.
var
2.
S, H: string;
3.
Temp: TStringList;
4.
begin
5.
S := 'saya belajar delphi';
6.
�
7.
Temp := TStringList.Create;
8.
try
9.
// potong per 5 char hingga S berisi string kosong
10.
while S <> '' do
11.
begin
12.
H := Copy(S, 1, 5); // potong/copy mulai index char 1 sebanyak 5 char
13.
Delete(S, 1, 5); // hapus string S mulai index 1 sebanyak 5 char
14.
�
15.
Temp.Add(H); // masukkan ke list-buffer sementara utk dikembalikan lagi
16.
end;
17.
�
18.
S := ''; // reset S (sebenarnya tidak perlu karena S sudah pasti kosong)
19.
�
20.
// Pindahkan isi list selama jumlah list diatas 0
21.
while Temp.Count > 0 do
22.
begin
23.
S := S Temp[0]; // Set S plus isi S itu sendiri dng data list index ke 0
24.
Temp.Delete(0); // Hapus list index ke 0
25.
end;
26.
�
27.
ShowMessage(S); // S sekarang berisi data utuh lagi
28.
finally
29.
Temp.Free;
30.
end;[/code:1:0f115a35e9]

more 12 years ago
dadanarifin
Penanda gimana nih maksudnya... kurang ngeti aq pertanyaannya.. nih...

more 12 years ago
Tbawor
sekedar mmbantu merapikan syntax highlighternya, smg codenya lebih mudah dipahami...:P
var
S, H: string;
Temp: TStringList;
begin
S := 'saya belajar delphi';
Temp := TStringList.Create;
try
// potong per 5 char hingga S berisi string kosong
while S <> '' do
begin
H := Copy(S, 1, 5); // potong/copy mulai index char 1 sebanyak 5 char
Delete(S, 1, 5); // hapus string S mulai index 1 sebanyak 5 char
Temp.Add(H); // masukkan ke list-buffer sementara utk dikembalikan lagi
end;
S := ''; // reset S (sebenarnya tidak perlu karena S sudah pasti kosong)
// Pindahkan isi list selama jumlah list diatas 0
while Temp.Count > 0 do
begin
S := S Temp[0]; // Set S plus isi S itu sendiri dng data list index ke 0
Temp.Delete(0); // Hapus list index ke 0
end;
ShowMessage(S); // S sekarang berisi data utuh lagi
finally
Temp.Free;
end;

more 12 years ago
astika
begini loh mas..ngisiin penanda pesan tiap potongannya itu.......biar pada saat pengiriman di ketahui itu adalah potongan 1,ke2,3,...dst.....dalam proses penggabungannya...misalnya
sistem informasi A mempunyai 3 pesan yaitu:
pesan 1:##ini adalah pesan pertama sebanyak 250 karakter#
pesan 2:#iniadalah pesan kedua sebanyak 250 karakter#
pesan 3:#inipesan terakhir##
pesan 1,2,3 di kirim ke Sistem informasi B ..melalui instant messenger
++++++++++++++++++++++++++++++++++++++++++++++++
terus pesan 1,2,3 di terima Sistem operasi B
lanjut ke proses penggabungannya
pesan : ini adalah pesan pertama sebanyak 250 karakter
ini adalah pesan kedua sebanyak 250 karakter
ini pesan terakhir
begitu mas thx...

more 12 years ago
dadanarifin
while Temp.Count > 0 do
begin
S := 'Pesan Ke :' + inttostr(Temp.Count) + S + Temp[0]; // tambahan disini aja
Temp.Delete(0);
end;
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- Hot Forum ...
by elva_ivana in Hal umum tentang Pascal Indonesia more 14 years ago - mohon bantuannya yang mengerti display format pada editbox
by arif_amm in Tip n Trik Pemrograman more 11 years ago - membunuh explorer...
by ludwig in Tip n Trik Pemrograman more 17 years ago - virtual key
by ags606 in Hal umum tentang Pascal Indonesia more 16 years ago - monitoring jaringan
by zarnet in Hal umum tentang Pascal Indonesia more 13 years ago - bikin output berbentuk exe
by yupi in Tip n Trik Pemrograman more 15 years ago - Seagate Crystal Report
by tubbies in Reporting more 15 years ago - PST Different... (Outlook Files)
by reminder2k1 in Hal umum tentang Pascal Indonesia more 12 years ago - bikin file txt di folder dari aplikasi
by yayaretina in Hal umum tentang Pascal Indonesia more 16 years ago - rave report
by marvel in Enginering more 17 years ago