Hej Hugo.
Et Vcard er meget simpel i opbygningen, så nedenstående fra C# burde kunne porteres til Delphi:
- stringWrite.WriteLine("BEGIN:VCARD");
- stringWrite.WriteLine("VERSION:2.1");
- stringWrite.WriteLine("N:" + nameLast + ";" + nameFirst + ";" + nameMiddle + ";" + nameTitle);
- stringWrite.WriteLine("FN:" + nameFirst + " " + nameMiddle + " " + nameLast);
- stringWrite.WriteLine("ORG:" + company + ";" + department);
- stringWrite.WriteLine("URL;WORK:" + uRL);
- stringWrite.WriteLine("TITLE:" + title);
- stringWrite.WriteLine("ROLE:" + profession);
- stringWrite.WriteLine("TEL;WORK;VOICE:" + telephone);
- stringWrite.WriteLine("TEL;WORK;FAX:" + fax);
- stringWrite.WriteLine("TEL;CELL;VOICE:" + mobile);
- stringWrite.WriteLine("EMAIL;PREF;INTERNET:" + email);
- stringWrite.WriteLine("ADR;WORK;ENCODING=QUOTED-PRINTABLE:" + ";" + office + ";" + addressTitle + "=0D" + streetName + ";" + city + ";" + region + ";" + postCode + ";" + counTry);
-
- stringWrite.WriteLine("END:VCARD");