//Get All Mail Array
function GetMailFromLocalMailConf(): LocalMailArray;
var
Connect: TSQLite3Connection;
Trans: TSQLTransaction;
Query: TSQLQuery;
db_name: string[100];
sqlhandle: string[255];
MailRecordArray : LocalMailArray;
iCnt: integer;
begin
//Setup SQL
db_name := programinfo.cbbsInfo.sLocalMailDB;
sqlhandle := 'SELECT mailid, to_id, from_id, subject, date, read, message FROM localmail WHERE to_id = ' +
userhandler.recCurrentUser.UserID.ToString;
Write('SQL' + sqlhandle);
//Code to update password from handle
Connect := TSQLite3Connection.Create(nil);
Query := TSQLQuery.Create(nil);
Trans := TSQLTransaction.Create(Connect);
Connect.Transaction := Trans;
Connect.DatabaseName := db_name;
Trans.StartTransaction; // opens Connect, EInOutError if SQLite not installed
Query.SQL.Text := sqlhandle;
Write('here1');
Query.Database := Connect; //Connection for SQL
Write('here23');
Query.Open;
//boolFoundUser := (Query.RecordCount > 0) and (Query.FieldByName('password').AsString <> '');
Write('here');
iCnt := 1;
repeat
// test := Query.FieldByName('mailid').AsString;
// TReturnList[iCnt].create;
Write('at least here');
write('test data: ' + Query.FieldByName('subject').AsString);
MailRecordArray[iCnt] := LocalMailArray.
MailRecordArray[iCnt].mailid := Query.FieldByName('mailid').AsString;
// TReturnList[iCnt] := TStringList.Create;
// TReturnList[iCnt].Add(test);
Write('ahah!');
{
TReturnList[iCnt].Add(Query.FieldByName('to_id').AsString);
TReturnList[iCnt].Add(Query.FieldByName('from_id').AsString);
TReturnList[iCnt].Add(Query.FieldByName('subject').AsString);
TReturnList[iCnt].Add(Query.FieldByName('date').AsString);
TReturnList[iCnt].Add(Query.FieldByName('read').AsString);
TReturnList[iCnt].Add(Query.FieldByName('message').AsString);
}
iCnt := iCnt + 1;
Write('Adding');
query.Next;
until (iCnt = Query.RecordCount);
{
while not Query.EOF do
begin
TReturnList[iCnt].Add(Query.FieldByName('mailid').AsString);
TReturnList[iCnt].Add(Query.FieldByName('to_id').AsString);
TReturnList[iCnt].Add(Query.FieldByName('from_id').AsString);
TReturnList[iCnt].Add(Query.FieldByName('subject').AsString);
TReturnList[iCnt].Add(Query.FieldByName('date').AsString);
TReturnList[iCnt].Add(Query.FieldByName('read').AsString);
TReturnList[iCnt].Add(Query.FieldByName('message').AsString);
Write('local + ' + TReturnList[iCnt].ToString);
iCnt := iCnt + 1;
end;
}
Query.Close;
Query.Free;
Connect.Free;
exit(MailRecordArray); //Return Mail Array
end;